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

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

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

var m,n,k,s1:integer;

  procedure f2(var s: integer);
  begin
    s:=(m+n+k);
  end;

  begin
    readln(m,n,k);
    f2(s1);
    writeln(s1);
    readln();
  end.