program MaxNumber;
var
i, maxNum, maxIndex, num: integer;
begin
maxNum := -9999;
maxIndex := 0;

for i := 1 to 10 do
begin
writeln('Введите число ', i, ': ');
readln(num);

if num > maxNum then
begin
maxNum := num;
maxIndex := i;
end;

end;

writeln('Наибольшее число:', maxNum);
writeln('Порядковый номер этого числа:', maxIndex);
end.