home *** CD-ROM | disk | FTP | other *** search
/ Enter 2001 July / EnterCD7.iso / Off-line / w11 / ms3 / dane / PROGRAM2.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  2001-04-06  |  289 b   |  11 lines
  1. PROGRAM liczydlo;
  2. USES crt;
  3. VAR liczba_1, liczba_2:integer;
  4. BEGIN
  5. write('Podaj pierwsza liczbe => ');
  6. readln(liczba_1);
  7. write('Podaj druga liczbe => ');
  8. readln(liczba_2);
  9. writeln('Suma dwoch liczb wynosi: ',liczba_1+liczba_2, ' , a ich roznica: ',liczba_1-liczba_2);
  10. readln;
  11. END.