home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 October / Chip_1997-10_cd.bin / invex / ozogan / read.ips < prev    next >
Text File  |  1997-08-18  |  463b  |  27 lines

  1. VAR
  2.    s : string;
  3.    r : real;
  4. ENDVAR
  5.  
  6. PROCEDURE main
  7.    ConsoleClear;
  8.    WRITE("Zadejte celΘ Φφslo");
  9.    READ(s);
  10.    WRITELN();
  11.    WRITELN("Zadal jste Φφslo:",StrToInt(s):12);
  12.    WRITELN();
  13.  
  14.    WRITE("Zadejte libovolnΘ Φφslo");
  15.    READ(r);
  16.    WRITELN();
  17.    WRITELN("Zadal jste Φφslo:",r:12:4);
  18.    WRITELN();
  19.  
  20.    WRITE("Zadejte libovoln² °et∞zec");
  21.    READ(s);
  22.    WRITELN();
  23.    WRITELN("Zadal jste °et∞zec: ",s);
  24.    WRITELN();
  25. ENDPROC
  26.  
  27.