Programe sir

1.

program sir;

var S: string, [15];

begin

write ('S='); readln (S);

writeln (S);

readln (S);

end. 

2.

program sir;

var S1;S2: string;

negin

write ('S1='); readl (S1);

write ('S2='); readl (S2); 

x pos ('S1','S2');

readln (S1,S2);

end.

3.

program subsir;

var s,p: string;

begin

write ('s=') ; read(s);

write ('p=') ; read (p);

pos (s,p);

writeln (s);

readln;

end.