сделать дз по информатике , нужно это на паскале

program Prog;

var a, b, c: Integer;

begin

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

read(a); read(b); read(c);

{на 4}

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

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

{на 5}

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

end.

var a, b, c:integer;

begin

 read(a, b, c);

 writeln(a+b+c);

 writeln(a*b*c);

 writeln((a+b+c)/3)

end.