01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / DIMA / PR4

Program pro3;
Uses CRT,MOD_D;

begin
ClrScr;
Writeln;k:=1;
Write('‚ўҐ¤ЁвҐ а §¬Ґа­®бвм ¬ ваЁжл ');
Readln(n,m_1);
Writeln('‚ўҐ¤ЁвҐ н«Ґ¬ҐҐ­вл ў ¬ ббЁў:');
For i:=1 to n Do begin
For j:=1 to m_1 Do begin
GotoXY(k,i+3);
Readln(d[i,j]);
k:=k+10;
end;
k:=1;
end;
Super1;
if c=1 then Writeln('‚ ¬ ббЁўҐ ®Ў­ а㦥­­л ўҐй. зЁб« ')
else Writeln('‚ ¬ ббЁўҐ ­Ґ ®Ў­ а㦥­­л ўҐй. зЁб« ');
If c=0 then
For i:=1 to n Do
For j:=1 to m_1 Do
d1[i,j]:=round(d[i,j]);
if c=1 then Super(d,c,n,m_1)
else Super(d1,c,n,m_1);
Readln;
end.