Дана программа program summa_massiva; const m: array[1..6]of iteger =(67, 23, -7, 0, 99, 3); var i, summa : integer; begin summa: =0; for i: =1to6do summa: =summa+m[i]; write ('summa elementov =', summa); end. нужно добавить в эту программу задержку экрана, очистку экрана и подключить библиотеку

ClrScr; очистка экрана
Sleep(1000); в скобках время в миллисекундах - задержка
вставлять эти функции в тех местах, где это необходимо

program HelloWorld;

var a: array of integer;

var N, min, max, i, variable:integer;

begin

   min := 32767;

   max := 0;

   readln(N);

   for i := 0 to N do begin  

       readln(variable);

       if (variable > 0) and (variable mod 2 = 0) and (variable > max) then

           max := variable;

       if (variable > 0) and (variable mod 2 = 0) and (variable < min) then

           min := variable;

   end;

   if (max <> 0) and (min <> 32767) then

       writeln(min, ' ', max)

   else  

       writeln(-1);

end.

program HelloWorld;

var a: array of integer;

var N, min, max, i, variable:integer;

begin

   min := 32767;

   max := 0;

   readln(N);

   for i := 0 to N do begin  

       readln(variable);

       if (variable > 0) and (variable mod 2 = 0) and (variable > max) then

           max := variable;

       if (variable > 0) and (variable mod 2 = 0) and (variable < min) then

           min := variable;

   end;

   if (max <> 0) and (min <> 32767) then

       writeln(min, ' ', max)

   else  

       writeln(-1);

end.