Programalama > PASCAL

program asalcarpan;
uses crt;
var i,k,n:integer;
    a:array [1..50] of real;

Begin

  clrscr;
  writeln;
  write('Asal ‡arpanlarna ayrlacak sayy giriniz :');
  readln(n);
  i:=n;
  k:=0;
  repeat
    i:=i-1;
    if n mod i = 0 then
    begin
      k:=k+1;
      a[k]:=n/i;
      n:=i;
    end;
  until i=1;
  writeln;
  writeln('**** Asal €arpanlar ****');
  writeln;
  for i:=1 to k do write(a[i]:5:0,' ');
  repeat until keypressed;

End.