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