Помогите с информатикой 2-8

2.
program dfd;
var a,b,c,d:real;
begin
writeln('введите значение a');
read(a);
writeln('введите значение b');
read(b);
writeln('введите значение c');
read(c);
writeln('a + b + c = ',a+b+c);
writeln('a * b * c = ',a*b*c);
writeln('(a + b + c)/3 = ',(a+b+c)/3);
end.