1)
var
a, P: real;
begin
a := 2.4; {readln(a) если хотите ввести с клавиатуры}
P := 4 * a;
writeln('Периметр P = ', P)
end.
2)
var
a, b, P, S: integer;
begin
write('Введите длины сторон: ');
readln(a, b);
P := 2 * (a + b);
S := a * b;
writeln('Периметр P = ', P);
writeln('Площадь S = ', S)
end.
3)
var
a, V, S: integer;
begin
write('Введите длину ребра: ');
readln(a);
V := a * a * a;
S := 4 * a * a;
writeln('Объём V = ', V);
writeln('Площадь S = ', S)
end.