[gokan]

Prof wrote:

program numdiv;
{$APPTYPE CONSOLE}
uses
SysUtils;

var n, num, i, cont: integer;
begin
writeln ('inserisci quanti elementi della successione vuoi calcolati');
readln (n);
i:= 1; num:= i; cont:= 1;
write(i:6);
while cont <=n -1 do
begin
i:=i+1; num:= i;
while (i mod 2 = 0) and (i>0)do
i:= i div 2;
while (i mod 3 = 0) and (i>0)do
i:= i div 3;
while (i mod 5 = 0) and (i>0)do
i:= i div 5;
if i = 1 then
begin cont:= cont+1; write (num:6) end;
i:= num;
end;
readln
end.