Возник вопрос. Напишите программу для вычисления суммы четырёх чисел(Pascal ABC)

Pascal ABC

program summa;
var
a, b, c, d, s: integer;
begin
readln (a, b, c, d);
s:= a + b + c + d;
writeln (' Сумма четырёх чисел = ' , s)
end.