Товарищи! Помогите,пожалуйста, правильно составить 2 программки в Паскале. Без вас не

Задание 1

1. var
2.    a, b, k, m: real;
3. begin
4.    Writeln('Введите поочерёдно катеты a, b, k и m: ');
5.    Readln(a, b, k, m);
6.    
7.    if (0.5 * a * b) = (0.5 * k * m) then
8.        Writeln('Площади треугольников равны!')
9.    else Writeln('Площади треугольников не одинаковы!');
10. end.

Задание 2

1. var
2.    number, firstDigit, secondDigit: integer;
3. begin
4.    Write('Введите число: ');
5.    Readln(number);
6.    
7.    if ((number gt;= 100) and (number lt;= 999)) or ((number lt;= -100) and (number gt;= -999)) then
8.        begin
9.            firstDigit := number div 100;
10.            secondDigit := (number div 10) mod 10;
11.            
12.            if (firstDigit gt; secondDigit) then
13.                Writeln(firstDigit, ' gt; ', secondDigit)
14.            else if (firstDigit lt; secondDigit) then
15.                Writeln(firstDigit, ' lt; ', secondDigit)
16.            else Writeln(firstDigit, ' = ', secondDigit)
17.        end
18.    else Writeln('Число не трёхзначное!');
19. end.