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

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.

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('Число является простым')  endend.