Помогите пожалуйста срочно сделать программу в паскале

Question

Помогите пожалуйста срочно
сделать программу в паскале

---

Answer 1

//Pascal ABC.NET Версия 2.2 Сборка 790
var s,s1,s2:string;
begin;
while s<>'.' do
begin;
readln(s);
s1:=s1+s;
end;
s2:=chr(39); //chr(39)='
if (pos('O',s1)<>0) and (pos(s2,s1)<>0) and (pos('k',s1)<>0) then writeln('Yes') else writeln('No');
end.