Ввести с клавиатуры двузначное целое число и определить какая из его цифр больше.…

Program Task; Var a, b, c: Integer; BeginWrite ('a='); ReadLn (a); If (a < 10) Or (a > 99) ThenWriteLn ('Число не двузначное') ElseBeginb: =a Div 10; c: =a — (b*10); If b > c ThenWriteLn ('Первая цифра') Else if b < c ThenWriteLn ('Вторая цифра') ElseWriteLn ('Равны') End; ReadLn; End.