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

program srednee; var a,b,c,d: integer; s: real; begin writeln ('Введите 4 числа'); readln (a,b,c,d); s:=(a+b+c+d)/4; writeln ('Среднее', ' ', 'арифметическое:', ' ', s); end.