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

Question

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

Answer 1

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