Нужно до завтрашнего дня! информатика 9 класс

не так уж и трудно, если

program project2;

var

n,a,b,c,i,k,max,min: longint;

inp,outp: text;

begin

assign(inp,'input.txt');

reset(inp);

assign(outp,'output.txt');

rewrite(outp);

readln(inp,n);

max: =0;

min: =0;

c: =0;

for i: =1 to n do

begin

read(f1,a);

if i=1 then

b: =a;

if a> max then

max: =a;

k: =a-c;

c: =a;

if k< 0 then

begin

k: =abs(k);

min: =min+k;

if k> min then

min: =k;

end;

end;

max: =max-b;

write(outp,max,' ',min);

close(inp);

close(outp);

end.

Const
  k = 5;

var
  x: array [1..k] of integer;
  i, min_index, k2: integer;

begin
  writeln('Enter x:');
  for i := 1 to k do
  begin
    write('x[', i, '] = ');
    readln(x[i]);
  end;
 
  min_index := 1;
  k2 := 0;
  for i := 1 to k do
  begin
    if x[min_index] > x[i] then
      min_index := i;
    if x[i] mod 2 = 0 then
      k2 := k2 + 1;
  end;
 
  if k2 > 0 then
    x[min_index] := k2;
    
 
  writeln('x:');
  for i := 1 to k do
    writeln('x[', i, '] = ', x[i]);
  writeln('k2 = ', k2);
  writeln('min = ', x[min_index]);
end.