<h2>Код программы</h2>
program raf105;
var i,j,o,n:integer;
begin
write('Введите число N: ');
readln(n);
writeln('Вывод: ');
for i:=2 to n-1 do
begin
o:=0;
for j:= 1 to i do
if (i mod j)=0
then o:= o+1;
if o=2
then writeln(i);
end;
end.
<h2>Результаты работы программы</h2>
Введите число N: 15
Вывод:
2
3
5
7
11
13
2^25=33554432 бит = 4194304 байт = 4096 кбайт = 4 мбайт
Var x, y: real;
begin
readln(x, y);
if ((x > 0) and (y > 0)) then writeln('true') else writeln('false');
<span>end.
В первой четверти X и </span><span>Y положительны)</span>
Из данного предложения?Если да,значит Вансар.Потому что кличка собаки является именем собственным.