Не разумею в чём ошибка, помогите поправить пожалуйстаprogram qq; var a, b,

Не разумею в чём ошибка, помогите поправить пожалуйста

program qq;
var a, b, c, d, j:integer;
begin;
a:=4;
b:=5;
c:=7;
j:=3;
d:= a + b+c;
writeln ( d );
d:=a*b*c;
writeln ( d );
d:=(a+b+c)/j;
writeln ( d );
end.