Выяснить, является ли число простым

program n_4_13;
uses WinCRT;
var n,i:real;
begin
Write('n=');
Read(n);
i:=1;
repeat i:=i+1 until n mod i = 0;
if n=i then WriteLn(n,' is simple') else
   WriteLn(n,' isn`t simple');
end.

program n_4_13;
uses WinCRT;
var n,i:real;
begin
Write('n=');
Read(n);
i:=1;
repeat
 i:=i+1;
 until (n mod i=0)or(i>=n);
if n=i then WriteLn(n,' is simple') else
   WriteLn(n,' isn`t simple');
end.

program n_4_13;
uses WinCRT;
var n,i,k:real;
     l:=boolean;
begin
Write('n=');
Read(n);
i:=1;
l:=false;
repeat
 i:=i+1;
 k:=trunc(n/i);
 if k*i=n then l:=true;
 until (l)or(i>=sqrt(n)+1);
if l then WriteLn(n,' не простое число ') else
   WriteLn(n,' простое ');
end.

var i:real;
begin
i:=1;
write(i);
readln
end.

var n:longint;
begin
repeat
write('n=');
readln(n);
until n>0;

program n_4_13;
uses CRT;
var n,i,k:real;
     l:boolean;
begin
repeat
clrscr;
Write('n=');
Read(n);
until(n>1)and(trunc(n/1)=n);
i:=1;
l:=false;
repeat
 i:=i+1;
 k:=trunc(n/i);
 if k*i=n then l:=true;
 until (l)or(i>=trunc(sqrt(n))+1);
 
if l then WriteLn(n,' net ') else
   WriteLn(n,' простое ');
 readln;
 readln;
end.