помогите с задачками 1) введите с клавиатуры 3 числа если они

Var
   a,b,c:real;
Begin
Write('Введите три числа: ');ReadLn(a,b,c);
if (agt;10)and(bgt;10)and(cgt;10) then WriteLn('фуррор')
else WriteLn('провал');
End.



Var
   A:integer;
Begin
Randomize;
A:=random(90)+10;
WriteLn('Начальное число: ',A);
if (A mod 2 = 0)and(A gt; 75) then
   Write('Сумма его цифр: ',A div 10 + A mod 10)
else
   WriteLn('Разность его цифр: ',A div 10 - A mod 10)
End.

Решение на скринах. Копировать не желаю, т.к все в строку выходит