Пользователем с клавиатуры вводится цифровой код (1 или 2). Если код равен 1, то вводится длина ребра куба и находится общая площадь поверхностей граней куба, а если 2, то вводятся катеты прямоугольного треугольника и находится его площадь. Результат вывести на печать. (Сделать надо на языке Паскаль)

Var k:integer; a, b, s:real;

begin

writeln ('Введите цифровой код (1 или 2) : ');

readln (k);

case k of

1: begin

write ('Длина ребра куба a = ');

readln (a);

s:=6*a*a;

writeln ('Общая площадь поверхности = ', s);

end;

2: begin

write ('Катеты прямоугольного треугольника a, b = ');

readln (a, b);

s:=a*b/2;

writeln ('Площадь треугольника = ', s);

end;

else writeln ('Ошибка ввода');

end;

end.

Пример:

Введите цифровой код (1 или 2):

2

Катеты прямоугольного треугольника a, b = 3 4

Площадь треугольника = 6