Определить, является ли число, введенное с клавиатуры простым

В системе Паскаля

Var i, a:integer;

b:boolean:=true;

begin

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

readln (a);

for i:=2 to round (sqrt (a)) do

if a mod i = 0 then begin b:=false; break; end;

if b then writeln ('Число ', a,' является простым')

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

end.