Найти наибольший элемент и его номер в последовательности, элементы которой вводятся с клавиатуры. размер произвольный.

Как то так, возможно будет ошибка, я не проверял, но это можешь сделать ты var index: byte; n: longint; max; begin index: =0; max: =-32000; repet readln(n); if max< n then begin index: =index+1; max: =n; end; until n< > 0; writeln(n, '     ',index); end.

Если надо вывести получившееся число без ведущих нулей (т.е. 1000 превратить в 1), то можно так: var n: integer; begin   readln(n);   writeln(1000 * (n mod 10) + (n - (n mod 10) - 1000 * (n div 1000)) + n div 1000) end. если надо сохранять ведущие нули, то можно, например,  считать число посимвольно. var i: integer;     c: array[1 .. 4] of char;     t: char; begin   for i : = 1 to 4 do     read(c[i]);   t : = c[1]; c[1] : = c[4]; c[4] : = t;   for i : = 1 to 4 do     write(c[i]) end.

$$$55555 $_55555 $__555 $ $$$$$ $$$$$$__$$$ $$$$$$$$_$$$ $$__$$$$_$__$$$ $$$__$$_$_$$_$ $$$_$$_$$$_$ $$$$__$$$_$$ $$$$$__$_$ $$$$$$ $$$$$$$$ $$$$$$$$ $$$$$$$__$$$$$$__$$$$$$ __$$$$$$$$$_ $$$$$_ $$$$$$$$ $$$$$$$$$_$$$$$_$$$$$$$$ $$$$$$$$_ $$$$_$$$$$$$ $$$$$_$$$_$$$$$ _$$$$$$$$$_ $$_$$$$$$$$$ $$$$$$$$$$ $$ $$$$$$$$$$ $$$$$$$$$$$ $$$$$$$$$$$ _$$$$$$$$$_$$_$$$$$$$$$ $$$$$_$$$_$$$$$ $$$$$$$$_ $$$$_$$$$$$$ $$$$$$$$$_$$$$$_$$$$$$$$ $$$$$$$$$_ $$$$$_ $$$$$$$$ $$$$$$$__$$$$$$__$$$$$$ $$$$$$$$_$$ $$$$$$_ $$ $$$$$$$ $$$$$$$ $$ $$$$$$$$$$$$$ $$$$$$$$$ $$ $$$$$$$__$$ $$$$$_$$ $$$$$$ $$$$ $$ $$$$$$$$$ $$$$$$$$$$$$ $$__$$$$$$$$ $$_$$$$$$ $$_$$$$$ $$$$$$ $$$$ $$