Контрольная работа: Язык программирования Turbo Pascal

Writeln(' 1. Vvod matrici A');

Writeln(' 2. Obraborat''matricu');

Writeln(' 3. Vivesti rezultat');

Writeln(' 4. Vihod');

choise:=readkey;

if choise=#27 then halt;

if ((choise<>'1') and (choise<>'4') and (f1=false)) then

begin

Writeln('Snachala neobhodimo sozdat'' matricu A');

cinp:=readkey;

if cinp=#27 then halt;

menu;

end;

if ((choise='3') and (f2=false)) then

begin

Writeln('Snachala neobhodimo obrabotat'' matricu A');

cinp:=readkey;

if cinp=#27 then halt;

menu;

end;

Case choise of

'1': begin

f1:=true;

clrscr;

Writeln;

Writeln('1. Sozdat sluchainuyu matricu');

Writeln('2. Vvesti s klaviaturi');

Writeln('3. Iz faila');

cinp:=readkey;