Урок 14.1 Задача 4

Урок 14.1 Задача 4:

Напишите процедуру, которая получает на вход три целых числа и выводит на экран их сумму.

var x, y, z: integer;
procedure sum(a, b, c: integer);   // процедура принимает три целых числа
begin
  write('Ответ: ');
  write(a + b + c);                // процедура выводит сумму
end;

begin
  writeln('Введите три числа: ');
  readln (x, y, z);
  sum(x, y, z);                    // передаем в процедуру три целых числа
  readln ();
end.  

Вывод в консоли:

Введите три числа:
7
4
1
Ответ: 12