Помогите с Паскалем

1) 1. Даны катеты в двух прямоугольных треугольниках – a1, b1 и a2, b2. Определить, площадь какого треугольника больше и на сколько. Если площади равны, вывести фразу – «Треугольники равновелики». (Проверка: 5,6 и 2,15. Ответ: Треугольники равновелики. Ещё проверка: 7,5 и 6,9. Ответ: Площадь второго треугольника больше на 19).

2) 2. На автобусном билете есть номер, состоящий из шестизначного числа. Напишите программу, которая будет проверять счастливый ли билет? Билет считается счастливым, если сумма первых трёх цифр равна сумме трёх последних цифр. (Проверка: 365478. Ответ: Билет не счастливый. Ещё проверка: 385493. Ответ: Билет счастливый).

1)var a,b,a1,b1:real;var s,s1:real;beginWriteLn('Введите все катеты через пробел:');Read(a,b,a1,b1);s:=a/2*b;s1:=a1/2*b1;WriteLn(s);WriteLn(s1);if s = s1 thenWriteLn('Треугольники равновелики')else if s>s1 thenWriteLn('Площадь первого треугольника больше на '+(s-s1))elseWriteLn('Площадь второго треугольника больше на '+(s1-s));end.2)var a,b:Integer;var arr:array of char;beginarr:=ReadString().ToCharArray();for var i:= 1 to 6 doif(i<4) thena+= strtoint(arr[i-1])elseb+= strtoint(arr[i-1]);if a=b thenWriteLn('Билет счастливый')elseWriteLn('Билет не счастливый');end.