- 01
 - 02
 - 03
 - 04
 - 05
 - 06
 - 07
 - 08
 - 09
 - 10
 
....
for i:=1 to 4 do for j:=1 to 4 do begin a[i,j]:=b; b:=b-1; end;
for i:=1 to 4 do for j:=1 to 4 do if a[i,j]=16 then begin k:=i;l:=j; end;
for i:=1 to 4 do
for j:=1 to 4 do
begin
gotoxy(5+3*i,5+2*j);
write(a[i,j]);
end; 
....
                                
 Follow us!
пятнашки чтоли реализовывал?
write('Apasati
апасрати
Я тоже могу, но говно там унылое в основном.
2,5 человека
а по гибким 5,25'' даже скучаю )