Презентация с данными настройками является​

var a: integer;

begin

  readln(a);

  while(a < 0) or (a > 200) do begin

    readln(a)

    end;

  if(a > 100) then

    begin

      while (a > 0) do begin

        writeln(a);

        a : = a -1

      end;

    end

  else begin

    while (a < = 200) do begin

      writeln(a);

      a : = a + 1

    end;

  end;

end.

var

  sum, temp, i: integer;

  sr: real;

  d_n: array[1..7] of string;

begin

  sum : = 0;

  d_n[1] : = 'понедельник> > '; d_n[2] : = 'вторник> > '; d_n[3] : = 'среда> > '; d_n[4] : = 'четверг> > '; d_n[5] : = 'пятница> > '; d_n[6] : = 'суббота> > '; d_n[7] : = 'воскресенье> > ';

  for i : = 1 to 7 do

  begin

    write(d_n[i]);

    readln(temp);

    sum += temp;

  end;

  writeln(round(sum / 7));

end.