4.1cBSD/usr/doc/pascal/synerr.p

program syn(output);
var i, j are integer;
begin
	for j :* 1 to 20 begin
		write(j);
		i = 2 ** j;
		writeln(i))
	end
end.