BSD 3 development

[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.