Question

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

Answer 1

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.