81 920 битов - это 1 мегобайт
Var r,s,p:real;
begin
write('R=');
readln(r);
s:=Pi*sqr(r);
p:=2*Pi*r;
writeln('Площадь: ',s);
writeln('Периметр: ',p)
<span>end.</span>
<span>var N, x, y, i: integer; </span><span>
begin
write(' N = ');
readln(N); </span>
<span>for i:=1 to N do </span>
<span>begin
writeln ('x='); </span>readln(x);
writeln ('y='); readln(y);
if y=abs(x) tnen write(' принадлежит ')
else write(' не принадлежит ');
end;
<span>
end.</span>