Контрольная работа: Выражения и условный оператор IF. Операторы циклов. Массивы и подпрограммы

write ('a = ');readln (a);

write ('b = ');readln (b);

if a>b then

begin

p1:=a;

a:=b;

b:=p1;

end ;

if a=b then begin p1:=0; p2:=b; end

else if b=0 then begin p1:=a; p2:=0; end

else begin p1:=b-a; p2:=a; end ;

{p1 - расстояние между левой и правой границей}

{p2 - левая граница}

randomize ;

for i:=1 to n do

for j:=1 to n do

m[i,j]:=p2+random *p1;

end ; {input_matrix}

procedure output_matrix(var m:matrix ; n:integer );

var

i,j:integer ;

begin

for i:=1 to n do

begin

for j:=1 to n do

begin

write (m[i,j]:0:digits);

write (' ');

end ;