Задание
Что будет выведено при вводе предложенных значенй
{6 5 9 0 9 3 4 1 1 9}
var a,k,n,x,max:integer;
s:real;
begin
k:=0; n:=1; max:=0;
readln(x);
repeat
begin
if x>max then
begin
max:=x;
k:=n;
end;
n:=n+1;
readln(x);
end;
until (x <>0) or (n=10);
writeln(n,' ',k,' ',max);
end.