program algorithm;
begin
ReadLn(a, b, c, d);
func(a+b+c+d);
WriteLn(x);
end.
подскажите где ошибка

Нужно изначально объявить переменные

аbcd

если нужны дробрые то -real

целые- integer;

т.е.

program algorithm;

var a,b,c,d:integer;

Пишется под Program