Question

Помогите написать программу в Паскале.
Дано трёхзначное число N. Определить, какая из его цифр больше - первая или вторая. Если цифры одинаковы, то выдать об этом сообщение.

Answer 1

Var
   a,b:integer;
Begin
Write('Введите трёхзначное число: ');
ReadLn(a);
b:=(a div 10) mod 10;
a:=a div 100;
if a > b then Write('Первая цифра больше')
else if a < b then Write('Вторая цифра больше')
     else Write('Первые две цифры равны')
End.