Урок 14.1 Задание 4

Задание 1 Урок 14.4

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

program Hello;
var a,b,c: integer;
procedure pishi(a,b,c: integer);
begin
  writeln(a+b+c);
end;
  
begin
  writeln ('Vvedite cheloe chislo');
  readln (a);
  writeln ('Vvedite cheloe chislo');
  readln (b);
  writeln ('Vvedite cheloe chislo');
  readln (c);
  
  pishi(a,b,c);
end.

Консоль:

Vvedite cheloe chislo
4
Vvedite cheloe chislo
7
Vvedite cheloe chislo
2
13