uses crt;
var i,size,num,max:integer;
a:array[1..10000] of integer;
begin;
ClrScr;
writeln('Введите размер массива');
readln(size);
FOR i := 1 TO size do
begin
clrscr;
writeln('Введите элементы массива');
readln(a[i]);
end;
max := a[1];
clrscr;
writeln('Введенный массив');
FOR i := 1 TO size do
begin
 writeln(a[i]);
 IF a[i] > max THEN
 begin
 num := i-1;
 max:=a[i];
 end
end;
FOR i := 1 TO num do
begin
a[i] := 0;
end;
writeln('Сформированный массив');
FOR i := 1 TO size do
begin
writeln (a[i]);
end;
end.