Uses crt;
var a : real;
p : boolean;
i : integer;
procedure haltproc;
begin
writeln('неверные данные');
writeln('a>=2');readln;
halt;
end;
begin
clrscr;
write('a=');readln(a);
if a<2 then haltproc;
if a=2 then begin
writeln2('простое');
readln;halt;
end;
p:=true;
for i:=2 to trunc(a-1) do
if a/i=trunc(a/i)
then p:=false;
if p=true
then write('простое')
else write('не простое');
readln;
end.
Msk.psu.ivanov; msk.psu.petrov;
msk.pstu.sidorov; msk.pstu.popov;
msk.ipkro.s102; msk.ipkro.s108; msk.ipkro.s11