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

var a,b,c,prime:longhint;beginwriteln('введите число');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.