Задание

Какое значение будет введено последним? В ответе - только это одно число

{1 2 3 4 5 6 7 8 9 10 11}

var a,k,n,x,max:integer;

s:real;

begin

k:=0; n:=1; max:=0;

readln(x);

while (x <>0) and (n<=10) do

if x>max then

begin

max:=x;

k:=n;

end;

n:=n+1;

readln(x);

writeln(n,' ',k,' ',max);

end.