Πρόγραμμα με Διαδικασίες με παραμέτρους και κυρίως πρόγραμμα μαζί

Πρόγραμμα με Διαδικασίες με παραμέτρους και κυρίως πρόγραμμα μαζί


program Ex_with_procedures;
var
  a,b,c:integer;

procedure diadikasia(var x,z,sum:integer);
   
  begin
     writeln('Αυτό κάνει η διαδικασία μου, προσθέτει 2 τιμές και εμφανίζει το αποτέλεσμα στην οθόνη');
     sum := x + z;
  end;

begin {αυτό είναι το κυρίως μου πρόγραμμα}
  writeln('Θα δοκιμάσω μια διαδικασία');
  a:= 5;
  b:= 4;
  diadikasia(a,b,c);{εδώ καλώ τη διαδικασία μου}
  writeln(c);
end.