function summe(n,m:integer): integer; VAR summe1: integer; begin summe1:=0; summe1:= n+m; result:=summe1; end;
Quelltext überprüfen:
jetzt prüfen
writeln('0;7'); writeln(summe(5,7)); writeln(summe(0,7)); writeln(summe(2,7));
ausführen