BSD 3 development

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

program synerr2(input,outpu);
integer a(10)
begin
       read(b);
       for c := 1 to 10 do
               a(c) := b * c;
end.