Написать программу Pascal. Найти простые числа х и у, которые в произведении дают число z, типа longint.

число Z вводится

Pascal

var

 i, z: longint;

begin

 write('Введите Z : ');

 readln(z);

 for i:=1 to trunc(sqrt(z)) do begin

   if z mod i = 0 then

     writeln(i, ' * ', z/i);

 end;  

end.