1) Дана сторона квадрата а. Найти P = 4*a

2) Дана сторона квадрата а. Найти S = a^2

3) Даны стороны прямоугольника a и b. Найти его площадьS=a*b и периметр P = 2 * (a+b).

4) Дана длина ребра куба a. Найти объем куба V=a^3 и площадь его поверхности S = 6*a^2.

5) Даны длины ребер a, b, c прямоугольного параллелепипеда. Найти его объем V=a*b*c и площадь поверхности S = 2 * (a*b+b*c+a*c).

1,2)

program gt;

var a, p, s:integer;

begin

read (A) ;

p:=4*a;

s:=a*a;

writeln ('периметр=', p) ;

writeln ('плошад', S) ;

end.

3)

program gt;

var a, b, p, s:integer;

begin

read (A, b) ;

p:=2 * (a+b) ;

s:=a*b;

writeln ('периметр=', p) ;

writeln ('плошад', S) ;

end.

4)

program gt;

var a, v, s:integer;

begin

read (A) ;

v:=a*a*a;

s:=6*a*a;

writeln ('объем=', v) ;

writeln ('плошад', S) ;

end.

5)

program gt;

var a, b, c, v, s:integer;

begin

read (A, b, c) ;

v:=a*b*c;

s:=2 * (a*b+b*c+a*c) ;

writeln ('объем=', v) ;

writeln ('площадь', S) ;

end.