vari,j,k,m,n,a1,a2,a3,a4,a11,a22,a33,a44,s:longint;a:array[1..10] of longint;b1:boolean;b:array[0..9] of boolean;beginfor a11:=1 to 3 do
for a22:=4 to 9 do
for a33:=13 to 31 do
for a44:=32 to 99 do
begin
fillchar(b,sizeof(b),false);
a1:=a11*a11;
a2:=a22... |