Составьте программу на языке Паскаль по нахождению среднего арифметического 3 чисел! Срочно!!

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