[unix-history] / .ref-BSD-2 / doc / pascal / synerr.p

progran syn(output);
var i, j are integer;
begin
	for j :* 1 to 20 begin
		write(j);
		i = 2 ** j;
		writeln(i))
	end
end.
Commit	Line	Data
1662094b BJ	1	progran syn(output);
	2	var i, j are integer;
	3	begin
	4	for j :* 1 to 20 begin
	5	write(j);
	6	i = 2 ** j;
	7	writeln(i))
	8	end
	9	end.