mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-10-31 09:32:00 +01:00
15 lines
319 B
ObjectPascal
15 lines
319 B
ObjectPascal
Program Example48;
|
|
|
|
{ Program to demonstrate the Pos function. }
|
|
|
|
Var
|
|
S : String;
|
|
|
|
begin
|
|
S:='The first space in this sentence is at position : ';
|
|
Writeln (S,pos(' ',S));
|
|
S:='The last letter of the alphabet doesn''t appear in this sentence ';
|
|
If (Pos ('Z',S)=0) and (Pos('z',S)=0) then
|
|
Writeln (S);
|
|
end.
|