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

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