program ideone;
const N=10000;
var
a : array [1..N] of integer;
sum, elcount, maxsum, i, k, j: integer;
begin
maxsum:=0;
sum:=0;
elcount:=0;
for i:=1 to N do begin
readln(a[i]);
if (a[i] = 0) then begin elcount:=i-1; break; end
end;
for i:=1 to N-1 do begin
for j:=i+1 to N do begin
if (a[i]<a[j]) then begin sum:=a[j]-a[i]+sum; maxsum:=sum; end
else sum:=0;
end;
end;
writeln('Получено ', elcount, ' чисел');
if (maxsum=0) then writeln('Наибольшая высота подъема: ', 0) else writeln('Наибольшая высота подъема - ', maxsum);
end.
cHJvZ3JhbSBpZGVvbmU7CmNvbnN0IE49MTAwMDA7CnZhciAKCWEgOiBhcnJheSBbMS4uTl0gb2YgaW50ZWdlcjsKCXN1bSwgZWxjb3VudCwgbWF4c3VtLCBpLCBrLCBqOiBpbnRlZ2VyOwpiZWdpbgoJbWF4c3VtOj0wOwoJc3VtOj0wOwoJZWxjb3VudDo9MDsKCWZvciBpOj0xIHRvIE4gZG8gYmVnaW4KCQlyZWFkbG4oYVtpXSk7IAoJCWlmIChhW2ldID0gMCkgdGhlbiBiZWdpbiBlbGNvdW50Oj1pLTE7IGJyZWFrOyBlbmQKCWVuZDsKCWZvciBpOj0xIHRvIE4tMSBkbyBiZWdpbgoJCWZvciBqOj1pKzEgdG8gTiBkbyBiZWdpbgoJCQlpZiAoYVtpXTxhW2pdKSB0aGVuIGJlZ2luIHN1bTo9YVtqXS1hW2ldK3N1bTsgbWF4c3VtOj1zdW07IGVuZAoJCQkJZWxzZSBzdW06PTA7CgkJZW5kOwoJZW5kOwoJd3JpdGVsbign0J/QvtC70YPRh9C10L3QviAnLCBlbGNvdW50LCAnINGH0LjRgdC10LsnKTsKCWlmIChtYXhzdW09MCkgdGhlbiB3cml0ZWxuKCfQndCw0LjQsdC+0LvRjNGI0LDRjyDQstGL0YHQvtGC0LAg0L/QvtC00YrQtdC80LA6ICcsIDApIGVsc2Ugd3JpdGVsbign0J3QsNC40LHQvtC70YzRiNCw0Y8g0LLRi9GB0L7RgtCwINC/0L7QtNGK0LXQvNCwIC0gJywgbWF4c3VtKTsKZW5kLg==