N = 128
N = <u />
I = 7
V = K·I = 8192·7 = 57344 bit = 7KB
Var s,r:real;
begin
writeln('Введите радиус: ');
readln(r);
s:=sqr(r)*(4-Pi)/2;
writeln('Ответ: ',s);
<span>end.</span>
Готово. 11212244(для символов)
<span>для выбора одного из нескольких вариантов </span>