home *** CD-ROM | disk | FTP | other *** search
- VAR
- Len : byte
- T : string = '╪et∞zec nebyl zadßn !'
- ENDVAR
-
- PROCEDURE After1
- IF (Len = 0) then
- WRITELN(T)
- ENDIF
- ENDPROC
-
- PROCEDURE Main
- VAR
- S : string
- ENDVAR
- WRITE('Zadejte libovoln² °et∞zec:');
- READLN(S);
- Len := Length(S);
- ConsoleClear;
- WRITELN('DΘlka °et∞zce je:', Len:3);
- IF (Len = 0) then
- WRITELN(t);
- RETURN;
- ENDIF
- WRITELN('Obsah °et∞zce je: [', S, ']');
- ENDPROC
-