Program projectwork;

begin

var a, b, c:integer;

begin

read (a);

read (b);

read (c);

d:=a+b+c/3;

write ('d=');

end;

end.

ожидался идентификатор но вар обнаружено

Program projectwork;

var a, b, c:integer;

d:real;

begin

read (a);

read (b);

read (c);

d:=a+b+c/3;

write ('d=', d);

end.

P. S. Если эта программа находит среднее арифметическое 3 введённых чисел, то d: = (a+b+c) / 3;