Ввести с клавиатуры двузначное целое число и определить какая из его цифр больше. (Ответ "Первая цифра","Вторая цифра" или "Равны").

Program Task;

Var a, b, c: Integer;

Begin

Write ('a = ') ;

ReadLn (a) ;

If (a 99) Then

WriteLn ('Число не двузначное')

Else

Begin

b : = a Div 10;

c : = a - (b * 10) ;

If b > c Then

WriteLn ('Первая цифра')

Else if b < c Then

WriteLn ('Вторая цифра')

Else

WriteLn ('Равны')

End;

ReadLn;

End.