Помогите с информатикой срочно! блок схемы, паскаль

Задание 1: 1. Задать значения катета и разности между гипотенузой и вторым катетом. 2. Вычислить гипотенузу треугольника по формуле: a^2 + b^2 = c^2. 3. Вычислить второй катет треугольника, вычитая разность между гипотенузой и вторым катетом из гипотенузы. 4. Вычислить площадь треугольника по формуле: S = (a * b) / 2. 5. Вывести результат на экран. Блок-схема: [задать значения катета и разности между гипотенузой и вторым катетом] -> [вычислить гипотенузу] -> [вычислить второй катет] -> [вычислить площадь треугольника] -> [вывести результат на экран] Задание 2: program TriangleArea; var a, b, c, S: real; begin writeln('Введите значение катета:'); readln(a); writeln('Введите значение разности между гипотенузой и вторым катетом:'); readln(b); if (a = 0) or (b = 0) then // проверка на нулевые значения writeln('Некорректный ввод!') else begin c := sqrt(a*a + (b+1)*(b+1)); // вычисление гипотенузы b := c - b - 1; // вычисление второго катета S := (a * b) / 2; // вычисление площади треугольника writeln('Площадь треугольника равна ', S:0:2, ' кв. см.'); end; end.