Сделайте 2 номера , очень надо и как можно быстрее,

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.