blob: 80c5efdb8998d91d62c1e2a86bf25bb53c421fc4 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
Program Example76;
{ This program demonstrates the LeftStr function }
Uses sysutils;
Begin
Writeln (LeftStr('abcdefghijklmnopqrstuvwxyz',20));
Writeln (LeftStr('abcdefghijklmnopqrstuvwxyz',15));
Writeln (LeftStr('abcdefghijklmnopqrstuvwxyz',1));
Writeln (LeftStr('abcdefghijklmnopqrstuvwxyz',200));
End.
|
