Напишите программу, которая вводит значения четырех переменных A, B, C, D типа integer и выводит их сумму. (Паскаль)

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