Даны стороны прямоугольного треугольника в разных строках найти гипотенузу и площадь на паскале

// PascalABC.Net 3.0, сборка 1052 var   s1, s2: string;   a, b: real;   err: integer; begin   Writeln('Введи первый катет: ');Readln(s1);   Val(s1, a, err);   if err <> 0 then Writeln('Ошибка при попытке получить числовое значение')   else begin     Writeln('Введи второй катет: ');Readln(s2);     Val(s2, b, err);     if err <> 0 then Writeln('Ошибка при попытке получить числовое значение')     else begin       Writeln('Гипотенуза равна ', sqrt(a * a + b * b));       Writeln('Площадь равна ', 0.5 * a * b)     end   end end.