1.Вычеслить обьем куба,если длина ребра задана
2.Вычеслить площадь поверхности кирпича,если длины ребер заданы
3.Вычеслить длину окружности,если радиус задан.

1)varV,a: integer;beginwrite('Введите длину ребра: ');readln(a);V:=a*a*a;writeln('Объём куба: ',V);end.2)vara,b,c,S: integer;beginwriteln('Введите длины ребер:');readln(a,b,c);S:=2*a*b+2*a*c+2*b*c;writeln('Площадь поверхности кирпича: ',S);end.3)varr,l: real;beginwrite('Введите радиус окружности: ');readln(r);l:=2*Pi*r;writeln('Длина окружности: ',l);end.