Напишите программу, которая запрашивает четыре целых числа и выдает…

Program pr1; Uses crt; Var a,b,c,d,s: integer; Beginwriteln ('введите 4 числа'); read (a,b,c,d); s: =0; s: =a+b+c+d; write (s); end. Это легко, но за пять баллов, блин: D Держи только первую часть х-Ъ