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

program zz1;

var a, b, c, d, m:real; //задаем переменные не целого типа

begin

write( введите 1-ое число );  // вводим с клавиатуры 1-ое число

read(a);  

write( введите второе число );  // вводим с клавиатуры 2-ое число

read(b);

write( введите третье число );  // вводим с клавиатуры третье число

read(c);

write( введите четвертое число );  // вводим с клавиатуры 4-ое число

read(d);

m:=(a + b + c + d)/4; // вычисляем среднее арифметическое

writeln( среднее арифметическое 4 введенных чисел = , m);  // выводим ответ

end.