Дракон имеет 3 головы: сапфир с номером 1, рубин с номером 2 и изумруд с номером 3. головы дракона извергают пламя некоторой длины. определить, какая из его голов извергает пламя наибольшей длины. длина пламени определена в виде трёхзначного числа. первая цифра этого числа показывает длину пламени, которую извергает сапфир, вторая цифра показывает длину пламени, которую извергает голова рубин, а третья цифра - голова изумруд. вводится число n - трёхзначное число, 100

Var a,b,c,i:integer;
begin
a:=1;
b:=2;
c:=3;
write('Введите трехзначное число: ');
readln(i);
if (i div 100 = (i div 10)mod 10) and (i div 100 = i mod 10) then
writeln(0)
else if (i div 100 >= (i div 10) mod 10) and (i div 100 >= i mod 10) then
writeln('Наибольшая длина у ',a,' дракона')
else if (i div 100 <= (i div 10) mod 10) and ((i div 10)mod 10 >= i mod 10) then
writeln('Наибольшая длина у ',b,' дракона')
else
writeln('Наибольшая длина у ',c,' дракона');
end.