Программирование на Pascal / Delphi / Лабораторная работа1 / LAB_5

program lab_5;
uses crt;
var
i,j,k,l,f:integer;
A:array[1..10,1..10] of integer;
begin
clrscr;
writeln('‡ Ї®«­Ґ­ЁҐ ¬ ваЁжл');
for i:=1 to 10 do
begin
for j:=1 to 10 do
begin
if (i=j) or (i+j=11) then A[i,j]:=i;
if (i<j) and (i+j<11) or (i=10) then A[i,j]:=j+i;
if (i<5) and (i>1) and (i+j<13) and (j<10) and (j>4) then A[i,j]:=A[i-1,j]+1;
write(A[i,j]:4);
if A[i,j]=0 then k:=k+1;
if (A[i,j]>4) and (A[i,j]<9) then l:=l+1;
f:=f+(A[i,j]*A[i,j]);
end;
writeln;
writeln;
end;
writeln('Љ®«-ў® н«Ґ¬Ґ­в®ў а ў­ле ­г«о а ў­® ',k);
writeln('Љ®«-ў® н«Ґ¬Ґ­в®ў >4 Ё <9 а ў­® ',l);
writeln('‘㬬  Єў ¤а в®ў ўбҐе н«Ґ¬Ґ­в®ў ¬ ваЁжл ',f);
readln;
end.