Program numbers;
var a: integer;
BEGIN
for a := 10 to 99 do
begin
if (sqr(a div 10)+sqr(a mod 10)) mod 4 = 0 then
write(a,' ');
end;
END.
Program numbers;
var a: integer;
BEGIN
for a := 10 to 99 do
begin
if (sqr(a div 10)+sqr(a mod 10)) mod 4 = 0 then
write(a,' ');
end;
END.