Утворити двовимірний масив 
і вивести його на друк у вигляді матриці. 
Обчислити кількість додатних елементів у кожному стовпці матриці.
program mas;
Var
x:array [1..4,1..4] of real;
i,j:integer;
s:real;
Begin
writeln ('vuvedennya na druk masuvy x');
for i:=1 to 4 do
Begin
for j:=1 to 4 do
Begin
x[i,j]:=arctan (i*j);
write (x[i,j]:7:3, '');
writeln;
end;
Writeln
end;
for i:=1 to 4 do
Begin
s:=0;
for j:=1 to 4 do
if x[i,j]>0 then
s:=s+x[i,j];
writeln ('suma', j:1, 's=', s:8:4);
end;
Readln
End.
Результат:
