asal çarpanlar.. girilen sayıyı asal çarpanlara ayırır...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.
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.
