ПОЖАЛУЙСТА составить программу нахождения суммы трех чисел числа целые.

Var a,b,c,d:real;
begin
writeln(Первое число);
readln(a);
writeln(Второе число);
readln(b);
writeln(Третее число);
readln(c);
d := a + b + c;
writeln(Ответ:,d)
end.