Надо составить блок-схему по Паскалю

[Мираяна]

Пожалуйста помогите

[Мираяна]

Пожалуйста помогите

Вот по этой программе:


begin
 k:=1;
 filename:='noname.txt';
 ASSIGN(f,filename);
 repeat
  writeln;
  writeln;
  writeln('         Меню         ');
  writeln('1. Ввод данных с клавиатуры ');
  writeln('2. Вычислить площадь трапеции ');
  writeln('3. Просмотр на экране в графическом виде ');
  writeln('4.  Выбор имени файла ');
  writeln('5.  Запись исходных данных с файла ',filename);
  writeln('6. Ввод исходных данных из файла ',filename);
  writeln('0. Выход из программы ');
  writeln;
  writeln('  Выберите пункт меню: ');
  readln(k);
  writeln;
  case k of
    1: Vvod_klav;
    2: Raschet;
    3: Procmotr;
    4: Name;
    5: Zapic_v_faila;
    6: Vvod_iz_faila;
  end;
 until k=0;
end.

[Мираяна]

Пожалуй

[Мираяна]

Пожалуйста помогите новичку