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

Program Task; Var a, b, c: Integer; Begin Write('a = '); ReadLn(a); If (a < 10) Or (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.