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

Program z2;Var a,b,c:integer; SA:real;Begin  write('Введите 1-ое число: ');  readln(a);  write('Введите 1-ое число: ');  readln(b);  write('Введите 3-ье число: ');  readln(c);  SA:= (a + b + c) / 3;  writeln('Сумма: ', SA);End.