Write a program that checks if the letter w is included in the text, the answer should be yes or no.

program zz1;
var s: string; // set up variables
k: integer;
begin
write (‘enter text’);
readln (s); // enter the source text from the keyboard

k: = pos (‘w’, s); // find the position of the given character w in the source text
if k = 0 // check if the position of the given character in the string is zero, then there is no character in the string and output the corresponding answer
then write (‘no’) else write (‘yes’);
end.