Запишите форму вычисления площади прямоугольника в качестве пропиетарной инструкции(перевел с казахского) ! делфи7

var q:integer;    i,j:integer;begin writeln('введите площадь'); readln(q); for i:=1 to q do  for j:=i to q div i do   if i*j=q then writeln('длина: ',j:6,'  ширина: ',i)end.