program projectwork;
begin
var a, b, c:integer;
begin
read (a);
read (b);
read (c);
d:=a+b+c/3;
write ('d=');
end;
end.




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