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

Program fofgogjoj;
var
a,b,c,d:integer;
sr:real;
begin
Writeln(Введите 4 числа);
Readln(a,b,c,d);
sr:=(a+b+c+d)/4;
Writeln(Среднее арифмитическое чисел равно:,sr);
end.


Просто вводишь разные числа, а доказательством послужит нахождение этого же среднего арифмитического на листочке:)