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

program ProstAlt;

label

1;

var

n,i: integer;

begin

Write('Vvedite chislo-->');

Read(n);

for i:=2 to n-1 do

if n mod i = 0 then

begin

Write('Ne Prostoe!');

goto 1;

end;

Write('Prostoe!');

1:

end.