лабораторная работа / 1-6 Простое число / простое число

program Project1;

var n: integer;

i,j,m: byte;

a: array [1..10] of integer;

p,q: real;

begin

m:=0;

WriteLn('Bbedite chiclo');

Read(n);

for i:= 1 to n do

begin

p:= n/i;

if p - trunc(p)=0

then

begin

m:= m+1;

a[m]:= i;

end;

end;

for j:= 1 to m do

Write(a[j],' ');

Read(q);

end.