Program Test;
Var
N,n1,tst,i,count:integer;
Begin
readln(N);
while n1<N do begin
n1:=n1+1;
count:=0;
for i:=1 to n1 do begin
if n1 mod i = 0 then inc(count);
end;
if n1>1 then if count=2 then writeln(n1);
end;
<span>End.</span>
var
a: integer;
begin
writeln('Введите целое число');
readln(a);
if a mod 2 = 1 then writeln('Число нечетное')
else writeln('Число четное');
end.
program zadacha;
var
s,y:real;
begin
writeln('vvedite y');
readln(y);
s:=sqrt( cos(4*sqr(y)) + 7.151);
writeln('s =',s:6:2);
end.
var
i, s: integer;
begin
s:= 0;
for i:= 50 to 100 do
if (i mod 2 = 0) and (i mod 3 = 0) then s:= s + i;
writeln(s);
readln;
end.