5
{ This program demonstrates the StrToInt function }
10
Writeln (StrToInt('1234'));
11
Writeln (StrToInt('-1234'));
12
Writeln (StrToInt('0'));
14
Writeln (StrToInt('12345678901234567890'));
16
On E : EConvertError do
17
Writeln ('Invalid number encountered');
b'\\ No newline at end of file'