home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / bsd_srcs / share / doc / ps1 / 04.pascal / synerr2.p < prev    next >
Encoding:
Text File  |  1990-06-07  |  103 b   |  8 lines
  1. program synerr2(input,outpu);
  2. integer a(10)
  3. begin
  4.     read(b);
  5.     for c := 1 to 10 do
  6.         a(c) := b * c;
  7. end.
  8.