home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 June / PCWorld_1998-06_cd.bin / software / Programy / Ozogan / TEST03.IPS < prev    next >
Text File  |  1998-03-25  |  463b  |  27 lines
  1. VAR
  2.    Len : byte
  3.    T : string = '╪et∞zec nebyl zadßn !'
  4. ENDVAR
  5.  
  6. PROCEDURE After1
  7.    IF (Len = 0) then
  8.       WRITELN(T)
  9.    ENDIF
  10. ENDPROC
  11.  
  12. PROCEDURE Main
  13. VAR
  14.    S : string
  15. ENDVAR
  16.    WRITE('Zadejte libovoln² °et∞zec:');
  17.    READLN(S);
  18.    Len := Length(S);
  19.    ConsoleClear; ConsoleShow;
  20.    WRITELN('DΘlka °et∞zce je:', Len:3);
  21.    IF (Len = 0) then
  22.       WRITELN(t);
  23.       RETURN;
  24.    ENDIF
  25.    WRITELN('Obsah °et∞zce je: [', S, ']');
  26. ENDPROC
  27.