program z1640023;
var a,s:integer;
begin
writeln('Введите s=');
readln(s);
for a:=1 to 20 do
if s mod a=0
then writeln('a=',a,' b=',s div a);
end.
program z1640023;
var a,s:integer;
begin
writeln('Введите s=');
readln(s);
for a:=1 to 20 do
if s mod a=0
then writeln('a=',a,' b=',s div a);
end.