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