Программирование на 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.