Дано ціле трьохзначне число, яке складається з неоднакових цифр. Визначте, яка з його цифр більша: перша чи друга.

var a,b, d:integer;beginread (d);a:=d div 100;b:=d div 10 mod 10;if a>b then Write ('перша більша') else Write ('друга більша')end.