Построить логические схемы по формулам ​

необходимо (но не достаточно).

readln (a, b);     -  вводим значения а в

c: =(a+b) * (b-a);   - выполняем уравнение

    writeln (c) -  выводим результат

в итоге получается

с=(7+8)*(8-7)

c=15

соттветственно будет получен результат 15 на экране.

var a,s: integer;

begin

  read(a);

  repeat

      s: =s+a mod 10;

      a: =a div 10

  until a=10;

  if (s< 100) and (s> 9) then write('yes')

  else write('no');

end.

проверяем если n нечетное и n=8 то 31 день

если n четное и n не равно 2 то 30 дней

если n=2 и a=0 то 28 дней

если n=2 и a=1 то 29 дней