Ввести три числа,найдите их сумму,творенье и среднее орифметичесоке.паскаль

program zz1;

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

begin

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

read(a);  

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

read(b);

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

read(c);

r:=a + b + c; // вычисляем сумму заданных чисел по формуле

writeln( сумма 3-х данных чисел = , r); // выводим ответ

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

r:=a * b * c; // вычисляем произведение заданных чисел по формуле

write( произведение трех данных чисел = , r); // выводим ответ

end.