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

program zz1;

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

begin

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

read (a);

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

read (b);

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

read (c);

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

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

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

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

end.