помогите безотлагательно,пожалуйста.напишите программку.Вычислить суммы четырех переменных A B C D.я

Помогите срочно,пожалуйста.
напишите программу.Вычислить суммы 4 переменных A B C D.
я написал,но не уверен что верно,исправьте:
Program amount;
var a,b,c,d:Real;
begin
Readln (A,B,C,D);
writeln (a+b+c+d)
end.