mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-18 09:59:29 +02:00
13 lines
249 B
ObjectPascal
13 lines
249 B
ObjectPascal
Program Example74;
|
|
|
|
{ Program to demonstrate the Val function. }
|
|
Var I, Code : Integer;
|
|
|
|
begin
|
|
Val (ParamStr (1),I,Code);
|
|
If Code<>0 then
|
|
Writeln ('Error at position ',code,' : ',Paramstr(1)[Code])
|
|
else
|
|
Writeln ('Value : ',I);
|
|
end.
|