Skip to content
Permalink
master
Go to file
 
 
Cannot retrieve contributors at this time
13 lines (10 sloc) 198 Bytes
program Main;
var x, y: real;
procedure Alpha(a : integer);
var y : integer;
var a : real; { ERROR here! }
begin
x := a + x + y;
end;
begin { Main }
end. { Main }