Составить программу нахождения суммы трех чисел числа целые.

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