Написать на языке паскаль программу ввода четырёх целых чисел и вычисления их среднего арифметического. протестировать программу на различных исходных данных (включая вещественные числа) и доказать правильность её работы.

я не понял по каким числам оно должно работать, ты пишешь при вводе 4 целых чисел а потом протестировать на что ты имешь

если что то не так то поменяй тип с integer на real.

program zadacha_1; const   n = 4; var  arr : array [1..n] of integer;   i, sum : integer; begin  sum : = 0;   for i : = 1 to n do  begin      writeln('введите значение ', i, ' элемента.');       read(arr[i]);       sum : = sum + arr[i];   end;   writeln('ср. арифмитическая сумма равна: ', sum/n); end. 

// pascal var   a: array [1..16] of integer;   i: integer; b: boolean; begin   randomize;   for i : = 1 to 16 do a[i] : = random(-20, 20);   for i : = 1 to 16 do       if a[i] = 0 then begin           if b then write(', ');           write(i, '-й ');           b : = true;       end;   if b then writeln('элемент(ы) равен(ны) нулю') else writeln('в массиве нету элементов, равных нулю.'); end.

Var       k: integer;       a, s: real; begin       write('начальная стоимость: ');       readln(a);       {write('число проданных газет:   ');       readln(k); }       k : = 200;             if k < = 50 then s : = k * a       else       begin               s : = 50 * a;               s : = s + (k - 50) * a * 1.2;       end;       writeln('выручка составила  ', s, ' руб.'); end.