Дана строка. вывести слова содержащие 'ар' использовать процедуру разбиения строки на слова. написать на языке pascal.

ответ:

procedure dividealine(line: string);

var

  i: integer;

  w: string;

begin

  if line[length(line)]< > ' '

  then

      line: =line+' ';

  w: =' ';

  for i: =1 to length(line) do

      if line[i]< > ' '

      then

        w: =w+line[i]

      else

        begin

          writeln(w);

          w: ='';

        end;

end;

const

  nn = 25; // максимум слов

var

  a: array[1..nn] of string[20];

procedure parser(s: string; var k: integer);

var  

  i,n: integer;

  w: string;

begin  

  w : = '';

  k : = 0;

  n : = length(s);

  for i : = 1 to n do

    if s[i] < > ' ' then w : = w + s[i]

    else

      if length(w) > 0 then

      begin

        k : = k + 1;

        a[k] : = w;

        w : = '';

      end;

  if length(w) > 0 then

  begin

    k : = k + 1;

    a[k] : = w;

  end;

end;

var

  s: string[254];

  i, k: integer;

begin

  readln(s);

  parser(s, k);

  for i : = 1 to k do

    if pos('ар', a[i]) > 0 then

      write(a[i], ' ');

end.

программа уровня турбо паскаль

а=истина

в=истина

а& в=истина

ā=ложь

нев=ложь

а\/в=истина

а→в=истина

а< -> в=истина