uses crt;
var
a,b:integer;

begin
readln(a);
b:=2;
repeat
if a/b=a div b then begin
a:=a div b;
writeln(b);
end
else begin

b:=b+1;
end;
until a=1;

readln;

end.:100:

[errayn]

bu pascal dili delphinin referans ettigi program degil mi?

[muti009]

tesekkürler kardeş ellerine sağlık

[maraz60]

tskl arkadasım

[Hasan62hasan]

Teşekkürler. Emeğine Sağlık. Güzel Bir çalışma

[fastdevil]

tşekkürler kardeşşş

[alemci4529]

tesekkürler

[yanlızkurt]

saolllll.....

[fatiha]

sağolasın..........