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.