Задача 2 Урок 14

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

var x,y,z:integer;

procedure sum(a,b,c: integer);
begin
  writeln(a+b+c);
end;

begin
  writeln('Vvedite celoe chislo: ');
  readln(x);
  writeln('Vvedite celoe chislo: ');
  readln(y);
  writeln('Vvedite celoe chislo: ');
  readln(z);
  sum(x,y,z);
end.   

Консоль:

Vvedite celoe chislo: 
5

Vvedite celoe chislo: 
5

Vvedite celoe chislo: 
5

15