Напишите программу, которая вводит значения четырех переменных a, b, c, d типа integer и выводит их сумму. (паскаль)

Program suma;
uses Crt;
var a,b,c,d,g:integer;
begin
writeln(a,b,c,d);
readln(a,b,c,d);
g:=a+b+c+d;
writeln(`summ=`,g);
end.