Program zadacha;
Var i,j,sum: integer;
begin
for i:=10 to 99 do
begin
for j:=10 to 99 do
begin
sum:=";i;"+";j;";
if (sum mod i=0) and (sum mod j=0) then
begin
writeln("";i;" & ";j;"");
end;
end;
end;
end.
Сборка персонального компьютера от Artline: умный выбор для современных пользователей