Question

Напишите программу на Pascal:

Вычислить площадь боковой поверхности прямой призмы с боковым ребром (а), в основе которой находится квадрат со стороной (в). (Предварительно найти периметр основания).

Answer 1

program prisma;
var
  a, b, p, s: real;
begin
  write('a=');
  readln(a);
  write('b=');
  readln(b);
  p := 4 * b;
  s := p * a;
  writeln('площадь боковой поверхности: ', s:1:2);
end.

Answer 2

А можно вариант с применением подпрограмы?