Укажите имя файла удовлетворяющее маске: ? ba*r.? xt.​

хвалебный                                                                     

в книге 1 верное

а 99 неверных решений

  в этой книге ровно 99-ть неверных утверждений.

var a: array[1..n] of integer;

i,n: integer;

begin

readln(n);

for i: =1 to n do readln(a[i]);

for i: =1 to n do 

if (i mod 2=0) then

for i: =1 to n do writeln(a[i]);

end. 

var a,max: real;

      n,i: integer;

begin

  max: =0;

  readln(n);

  for i: =1 to n do begin 

    readln(a);

    if a> max then max: =a;

                          end;

  writeln(max);

end.