program primszam1;
uses crt;
var
szam1:real;
i,n,szam2,elemszam:longint;
osztok_tomb:array of longint; {dinamikus tomb}

BEGIN
clrscr;
elemszam:=0;
i:=0;
n:=1;

write('Kerem a vizsgalando szamot! ');
readln(szam1); {vizsgalando szam beolvasasa real tipusba}
writeln;

while (szam1<>trunc(szam1)) or (szam1>2147483647) or (szam1<=0) do
{ciklus prim kereses szempontjabol nem megfelelo szamtipusok kizarasara}
begin
write('Kerem a vizsgalando pozitiv egesz szamot 2147483647-ig [longint>0]! ');
readln(szam1);
writeln;
end;

szam2:=trunc(szam1); {tipuskonverzio real->longint, a tomb eleme csak egesz szam tipus lehet}

while n<szam2 do
{ciklus osztok keresesere dinamikus tomb hasznalataval}
begin
  if szam2 mod n = 0 then
  begin
  elemszam:=elemszam+1;
  setlength(osztok_tomb,elemszam);
  osztok_tomb[i]:=n;
  end;
n:=n+1;
end;

writeln;
if szam2=1 then
writeln('A megadott szam: ',szam2,'; EGYSEGSZAM.');
if length(osztok_tomb)<2 then
writeln('A megadott szam: ',szam2,'; PRIMSZAM.')
else
writeln('A megadott szam: ',szam2,'; OSSZETETT SZAM');

readkey;
END.