program names;
var s,i:integer;
begin
writeln('Введите s');
readln(s);
for i:=1 to 20 do
if (i<s) then
if (s mod i=0) and (s/i<=20) then writeln(i,' ',s/i:1:2);
end;
end.
program names;
var s,i:integer;
begin
writeln('Введите s');
readln(s);
for i:=1 to 20 do
if (i<s) then
begin
if (s mod i=0) and (s/i<=20) then writeln(i,' ',s/i:1:2);
end;
end.