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

if ((e=0) And ((inp=1) Or (inp=2) Or (inp=3))) then

begin

create(A,inp);

menu;

end

else begin

writeln('Neverniy vibor');

readkey;

menu;

end;

end;{1}

'2': begin

f2:=true;

obrab(a,c);

Writeln('Matrica uspeshno obrabotana:');

Writeln('Ishodnaya matrica:');

vivod(A,1,0);

Writeln('Naiden minor minimalnogo elementa [',nomi('i',A),',',nomi('j',A),']');

readkey;

menu;

end;

'3': begin

clrscr;

Writeln;

Writeln('1. Vivesti na ekran');

Writeln('2. Sohranit v fail');

Writeln('3. Raspechatat''');

cinp:=readkey;

val(cinp,inp,e);