Пользователем с клавиатуры вводится цифровой код (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