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>
1) гром и молния 2) Сталинградская битва и Полтавская битва 3) Круглый воздушный шарик и тонкий лист бумаги 4) Притяжение Луны и Земли, длинна тормозного пути зависимая от скорости автомобиля в момент торможения 5) приходить на прием к королеве в костюме:), приходить на НГ в гости с подарком, внимательное выслушивания речника, который провозглашает тост или речь у него в гостях
Begin
S:=0;
n:=0;
for i:=1 to 13 do begin
readln (A[i]); end;
for i:=1 to 13 do begin
if (A[i] mod 4 = 1) or (A[i] mod 4 = 3) then begin S:=S+A[i]; n:=n+1; end;
end;
writeln (S/n);
end.