1 var a,b:integer;
begin
a:=10;
while(a<=27) do
begin
a:=a+1;
b:=a*a;
writeln(a, '^2 = ', b)
end;
end.
2 var i,s:longint;
begin s:=1; 
for i:=23 downto 5 do
beginif (i mod 2 = 0)
then s:=s*i;
end;
writeln(s);
end.
3 var i, s : integer;
begin 
s:=1; 
for i:= 14 to 98 do   
 if i mod 7 = 0 then s:=s*i; 
 writeln(s); 
readln
end.