Какое значение будет введено последним? В ответе - только это одно число
{1 2 6 3 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 \\lt \\gt 0\) and \(n\\lt =10\) do
if x>=max then
begin
max:=x;
k:=n;
readln\(x\);
end;
n:=n+1;
writeln\(n,' ',k,' ',max\);
end.