Курсовая работа: Техническое задание на создание автоматизированных систем

x:=whereX;

y:=whereY;

for i:=1 to n do

begin

if y+i*2<=25 then

begin

for j:=1 to n do

begin

gotoxy(x*j,y+i*2);

write(a[i,j]:3:2);

end;

end

else

begin

writeln;

for j:=1 to n do

begin

gotoxy(x*j,25);

write(a[i,j]:3:2);

end;

end;

writeln;

end;

writeln;

writeln('Для возврата в главноe меню нажмите "ENTER" ');

readln;

readln

end;

procedure rezh4;