Широко известный бывший стилист Сергей З. увлекся бонистикой — он собирает банкноты. Особенно ему нравятся крупные купюры. Поэтому он просит выплачивать ему гонорары только такими купюрами, а от мелких с негодованием отказывается.

К сожалению, в силу различных обстоятельств Сергею не удалось окончить среднюю школу, поэтому он никак не может понять, какая из купюр его последнего гонорара самая крупная. Звезда в шоке!

Помогите Сергею, напишите программу, которая определяет порядковый номер самой крупной купюры в его гонораре из трех купюр.

Формат входных данных
С клавиатуры вводятся список из трех целых чисел, равных номиналам российских купюр. Числа не превосходят 5000. Все числа разные.
Формат выходных данных
Вывести на экран порядковый номер (1, 2 или 3) самой крупной купюры в гонораре Сергея.

Примеры
входные данные выходные данные
100 5000 500 2

10 50 1000 3

program money;

label 1;

var

x,y,z : smallint;

Begin

1 : WriteLn('Введите 3 купюры до 5000');

ReadLn(x,y,z);

if ((x > 5000) or (y > 5000) or(z > 5000) ) then goto 1;

if (x>y) and (x>z) then WriteLn('Максимальная купюра = ','1') else

 if (y>x) and (y>z) then WriteLn('Максимальная купюра = ', '2') else

   if (z>x) and (z>y) then WriteLn('Максимальное купюра = ', '3');  

   End.

Вот , код проверил , проблем возникнуть не должно.