Информатика! 100 быллов! Составить программу на языке Паскаль c=(a+b)/2+d

Program ;Var a, b, c, d: real; Begin Writeln ('Введите a: = '); Readln (a); Writeln ('Введите b: = '); Readln (b); Writeln ('Введите d: = '); Readln (d); c:=(a+b)/2+d; Writeln ('ответ: c: = ',c); end.