Найти все равновеликие прямоугольники, стороны которых выражены целыми числами a и b, а площадь равна S(a и b принадлежат интервалу от 1 до 20, а S вводится с клавиатуры) - Pascal(Паскаль) - Справочник юного программиста Pascal/Delphi

var
a,b,s:integer;
writeln('vvedite s');
readln(s);
for a=1 to 20 do
for b=1 to 20 do
if a*b=s then writeln('a=',a,' b=',b);
readln;
end.