home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 June / PCWorld_1998-06_cd.bin / software / Programy / Ozogan / READ.IPS < prev    next >
Text File  |  1998-03-25  |  476b  |  27 lines
  1. VAR
  2.    s : string;
  3.    r : real;
  4. ENDVAR
  5.  
  6. PROCEDURE main
  7.    ConsoleClear; ConsoleShow;
  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.