Дано ціле трьохзначне число, яке складається з неоднакових цифр. Визначте, яка з його цифр більша: перша чи друга. Як правильно написати програму на Паскалі?
Var a,b, d:integer; begin read (d); a:=d div 100; b:=d div 10 mod 10; if a>b then Write ('перша більша') else Write ('друга більша') end.