Создать таблицу истинности _ avb& c& d

var

  a, n, s, i: integer;   //n - количество, s - сумма, a - вводимое число

 

begin

  a: = 1;

  while a mod 5 < > 0 do

  begin

    writeln('введите целое число');

    readln(a);

    if a > 10 then

    begin

      inc(n);   //увеличиваем счетчик на 1

      s: = s + a;

    end;

  end;

  writeln('количество чисел, больших 10:   ', n, ', сумма чисел, больших 10:   ', s);

  write('делители числа ', a, ':   ');

  for i: = 2 to a do

    if a mod i = 0 then write(i, '   ');

end.

var

  s1, s2: string;

  i, n1, n2: integer;

 

begin

  writeln('введите первое слово');

  readln(s1);

  writeln('введите второе слово');

  readln(s2);

  writeln('объединение слов:   ', s1 + s2);

  writeln('длина первого слова:   ', length(s1));

  writeln('длина второго слова:   ', length(s2));

  for i: = 1 to length(s1) do

    if s1[i] = 'а' then inc(n1);

  for i: = 1 to length(s2) do 

    if s2[i] = 'a' then inc(n2);

  writeln('в первом слове ', n1, ' букв "а" ');

  writeln('во втором слове ', n2, ' букв "а" ');

  writeln('первые 5 букв первого слова:   ', copy(s1, 1, 5));

  writeln('первые 5 букв второго слова:   ', copy(s2, 1, 5));

  delete(s1, length(s1) - 4, 5);

  delete(s2, length(s2) - 4, 5);

  writeln('результат удаления последних 5 букв первого слова:   ', s1);

  writeln('результат удаления последних 5 букв второго слова:   ', s2);

end.