экз

program z3;
var a, b, s: integer;
begin
writeln ('s='); readln (s);
for a:=1 to 50 do
for b:=1 to 50 do

if a*b=s then
writeln ('a=',a,'b=',b);
end.