Товарищи! ,, верно составить 2 программы в паскале. без вас не справлюсь. заранее ! 1. равны ли площади прямоугольного треугольника с катетами а, в и прямоугольного треугольника с катетами k, m. 2. дано трехзначное число. определить, какая из его цифр больше первая или вторая.

Задание 1var    a, b, k, m: real;begin    Writeln('Введите поочерёдно катеты a, b, k и m: ');    Readln(a, b, k, m);        if (0.5 * a * b) = (0.5 * k * m) then        Writeln('Площади треугольников равны!')    else Writeln('Площади треугольников не равны!');end.Задание 2var    number, firstDigit, secondDigit: integer;begin    Write('Введите число: ');    Readln(number);        if ((number >= 100) and (number <= 999)) or ((number <= -100) and (number >= -999)) then        begin            firstDigit := number div 100;            secondDigit := (number div 10) mod 10;                        if (firstDigit > secondDigit) then                Writeln(firstDigit, ' > ', secondDigit)            else if (firstDigit < secondDigit) then                Writeln(firstDigit, ' < ', secondDigit)            else Writeln(firstDigit, ' = ', secondDigit)        end    else Writeln('Число не трёхзначное!');end.