BSD 4_3_Net_2 development

[unix-history] / usr / src / share / doc / ps1 / 04.pascal / synerr2.p

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