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

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