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

program pr4;
uses crt;
var
i,j,l,k: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) or (i=10) or (i<5) and (i<j) and (i+j<11) then A[i,j]:=i else A[i,j]:=0;
write(A[i,j]:4);
if (A[i,j]>4) and (A[i,j]<9) then k:=k+1;
if A[i,j]=0 then l:=l+1;
end;
writeln;
writeln;
end;
writeln('Љ®«-ў® н«Ґ¬Ґ­в®ў а ў­ле ­г«о а ў­® ',l);
writeln('Љ®«-ў® н«Ґ¬Ґ­в®ў >4 Ё <9 а ў­® ',k);
readln;
end.