Найти максимальное число и его номер среди чисел, введенных с клавиатуры. Признак конца ввода - 0. Использовать оператор Repeat.

Предыдущий
вопрос Следующий
вопрос

Program FindMaxNumber;

var
number, maxNumber, numberPosition: integer;

begin
Write('Enter a number: ');
ReadLn(number);

maxNumber := number;
numberPosition := 1;

repeat
Write('Enter a number: ');
ReadLn(number);

until number = 0;

Writeln('The maximum number is ', maxNumber);
Writeln('Its position in the list is ', numberPosition);
end.