Напишите программу определения простого числа в Паскале

Var

i, n, m, s:integer;

begin

write ('Введите число: ') ;

readln (n) ;

if n mod 2=0 then

writeln ('Число не является простым')

else begin

m:=trunc (sqrt (n)) ;

i:=3;

while (n mod i 0) and (i<=m) do i:=i+2;

if i<=m then writeln ('Число не является простым')

else writeln ('Число является простым')

end

end.

Program chisla;

uses crt;

var i, a, k: integer;

begin

clrscr;

write ('введите число: ') ;

readln (a) ;

k:=0;

for i:=2 to a div 2 do

if a mod i = 0 then k:=k+1;

if k=0 then write ('простое')

else writeln ('не простое') ;

readln;

end.