Разработайте проект нахождение длины гипотенузы и площади прямоугольного треугольника по известным катетам; нужен листинг программы для delphi

Var
    a, b: real;

begin
    readln(a, b);
    Writeln('c = ', Sqrt(a * a + b * b));
    Writeln('S = ', a * b * 0.5);
end.