Написать программу вычисления полной площади и объёма параллелепипеда,

Var a,b,c: real; begin write('длина = '); readln(a); write('ширина = '); readln(b); write('высота = '); readln(c); writeln('площадь полной поверхности = ',2*(a*b+b*c+c*a)); writeln('объём = ',a*b*c) end.

n = 64 - 32 = 32

i = log₂ 32 = 5 бит

количество вопросов, которые нужно задать равно 5

 

var

  n,i,a: integer;

begin

  readln(n);

  for i: =1 to n do

  begin

  read(a);

  write(abs(a),' ');

end;

end.