Дана последовательность слов, разделенных пробелами. Вывести на экран те из них, которые содержат букву А.

uses
  crt;
const
  dividers=[' ',',','.',';',':','-','=','+'];{äîïèñàòü íóæíûå}
var
  s,temp:string;
  i,j:integer;
begin
  clrscr;
  writeln('Ââåäèòå ñòðîêó:');
  readln(s);
  temp:='';
  writeln('Íàéäåííûå ñëîâà:');
  {ïðîáåãàåì âñþ ñòðîêó ïîñèìâîëüíî}
  for i:=1 to length(s) do
  begin
    if not (s[i] in dividers) then
      temp:=temp+s[i];
    if (s[i] in dividers) or (i=length(s)) then
    begin
      if temp<>'' then
      begin
        if (pos('a',temp)<>0) or (pos('A',temp)<>0) then
          write(temp,' ');
        temp:='';
      end;
    end;
  end;
end.

uses crt;
 
function w(a,b,x,y:real):real;
begin
 w:=(sqr(sin(x-y))*sin(x-y)+sqr(cos(x+y))*cos(x+y))/(exp(a+b)*x);
end;
 
begin
 clrscr;
 writeln('x=0.35 y=0.1   w=',w(0.24,0.9,0.35,0.1):0:4);
 writeln('x=0.82 y=0.12 w=',w(0.24,0.9,0.82,0.12):0:4);
 writeln('x=0.67 y=0.3   w=',w(0.24,0.9,0.67,0.3):0:4);
 readln;
end.