Запиши программу на языке паскаль. определить, является ли число, введенное с клавиатуры простым.

Var a,b,c,prime:longhint;
begin
writeln('введите число');
readln(a);
c:=a;
for b:=1 to a do begin
 if (c mod b=0) then prime:=prime+1;
end;
if (prime>2) then writeln('число не простое')
else writeln('число простое ');
end.