Решение примерные задания 4 тура>Задача D. Простые числа.
program pr; label M1; //Метка var a,x,y,z:longint; begin M1: //Начало метки a:=0; readln (y); for x:=1 to y do begin if y mod x=0 then a:=a+1 end; if a=2 then writeln ('YES') else writeln ('NO'); goto M1; //Возврат к метке M1 end.
program pr; var к,x,y,z:longint; begin readln (y); for x:=1 to y do begin к:=0; if y mod x=0 then к:=к+1 end; if к=2 then writeln ('YES') else writeln ('NO');