1. Вычеслить обьем куба, если длина ребра задана

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

3. Вычеслить длину окружности, если радиус задан.

1)

var

V, a: integer;

begin

write ('Введите длину ребра: ') ;

readln (a) ;

V:=a*a*a;

writeln ('Объём куба: ', V) ;

end.

2)

var

a, b, c, S: integer;

begin

writeln ('Введите длины ребер:') ;

readln (a, b, c) ;

S:=2*a*b+2*a*c+2*b*c;

writeln ('Площадь поверхности кирпича: ', S) ;

end.

3)

var

r, l: real;

begin

write ('Введите радиус окружности: ') ;

readln (r) ;

l:=2*Pi*r;

writeln ('Длина окружности: ', l) ;

end.