Skip to content
Permalink
master
Switch branches/tags
Go to file
1 contributor

Users who have contributed to this file

program Main;
procedure Alpha(a : integer; b : integer);
var x : integer;
procedure Beta(a : integer; b : integer);
var x : integer;
begin
x := a * 10 + b * 2;
end;
begin
x := (a + b ) * 2;
Beta(5, 10); { procedure call }
end;
begin { Main }
Alpha(3 + 5, 7); { procedure call }
end. { Main }