Program String Pada Pascal

Program String Pada Pascal

uses crt;

Var

   S : String;

begin

clrscr;

writeln('----------------------------------');

 S := 'Hey Rika !';

 Write('     SUKSES SELALU RIKA ');

 Writeln(Pos('hey',S));

 If Pos('hey',S) <= 0 then

  Writeln(' "BELAJAR YANG RAJIN YAA !!!" ');

readln;

end.

Output Input