Program home_07;
var text:char;
   b:boolean;
Begin
b:=False;
Writeln('‚Ввести буквы ');
Repeat
 Writeln('->'); Readln(text);
 if  b=(text=('P')) or ((text=('a')) or ((text=('s')) or ((text=('c')) or
            (text=('a')) or (text=('l'))))) then
            b:=true;

 until text <>('.');
  if b then Write('­нету')   else Write('есть');
end.

Program home_07;
uses wincrt;
var text:char;
   b:boolean;
   i,n:integer;
Begin
trackcursor;
writeln('кол-во символов');
readln(n);
b:=False;
for i:=1 to n do
begin
Writeln('‚Ввести буквы ');
 Writeln('->'); Readln(text);
 if  b=(text=('P')) or ((text=('a')) or ((text=('s')) or ((text=('c')) or
  (text=('a')) or (text=('l'))))) then
  b:=true
  else b:=false;
  if b=true then Write('­нету')   else Write('есть');
end;
end.

program Pascal;
uses crt;
var
  s:string;
  i:integer;
  M : Set of char;
  b:boolean;
begin
  ClrScr;
  write('Input String -> ');
  readln(s);
  M:=['P','a','s','c','a','l'];
  for i:=1 to length(s) do
     if s[i] in M then begin writeln('YES!');b:=true;break;end;

  if not(b) then write('No!');
  readln;
end.