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