ПОМОГИТЕ ! СРОЧНО ! Задание 5, не игнорьте ! НАМ НУЖНО СДЕЛАТЬ ABC-Паскаль.

Пиши только правильно !

Var a,b,c:integer;

Begin

writeln('Введите три числа:');

readln(a);

readln(b);

readln(c);

writeln(a,'+',b,'+',c,'=',a+b+c);

writeln(a,'*',b,'*',c,'=',a*b*c);

writeln('(',a,'+',b,'+',c,')','/3=',(a+b+c)/3:4:2);

End.