Что будет выведено для предложенных значений
{0 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 \\lt \\gt 0\) or \(n\\lt =10\);
writeln\(n,' ',k,' ',max\);
end.