Задание 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 >= 100) and (number <= 999)) or ((number <= -100) and (number >= -999)) then
8.        begin
9.            firstDigit := number div 100;
10.            secondDigit := (number div 10) mod 10;
11.            
12.            if (firstDigit > secondDigit) then
13.                Writeln(firstDigit, ' > ', secondDigit)
14.            else if (firstDigit < secondDigit) then
15.                Writeln(firstDigit, ' < ', secondDigit)
16.            else Writeln(firstDigit, ' = ', secondDigit)
17.        end
18.    else Writeln('Число не трёхзначное!');
19. end.