Program ggh;
var n,s:integer;
begin
writeln('введите трехзначное число n');
readln(n);
s:=n div 100+n div 10 mod 10+n mod 10;
if s mod 2=0 then writeln('будет') else writeln('не будет');
end.
#1)
a=float(input())
v=pow(a,3)
s='pow(a,2)*4'
print('обьем-',v,'\nплощадь боковой поверхности-',eval(s))
#2
s=0
for i in range(3):
x=input()
s+=(1/float(x))
print(s)
614400 килобайт, надо просто кол-во символов умножить на кол-во строк, а потом полученный ответ надо умножить на кол-во страниц