home *** CD-ROM | disk | FTP | other *** search
/ PC-X 1998 March / pcx19_9803.iso / PC-XUSER / PC-XUSER.14 / PROGTERV / FOR01.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1998-02-10  |  243 b   |  12 lines
  1. var mennyi, ossz, i, szam: Integer;
  2. BEGIN
  3.   Write('Mennyi szám összege lesz: '); Readln(mennyi); WriteLn;
  4.   ossz:=0;
  5.   for i:=1 to mennyi do
  6.   begin
  7.     ReadLn(szam);
  8.     ossz:=ossz+szam;
  9.   end;
  10.   WriteLn('Az összeg: ', ossz);
  11. END.
  12.