Напишите наименьшее число х, для которого истинно высказывание: (x > 35) И НЕ (х не делится на 7)
Напишите наименьшее число х, для которого истинно высказывание:
(x > 23) И НЕ (х делится на 8)
Надо подробное оформление

var  s: string;   i: longint; begin  readln(s);   for i: =length(s) downto 1 do  begin  if s[i]=' ' then delete(s,i,1);   if (s[i]> ='1')and(s[i]< ='9') then delete(s,i,1);   end;   writeln(length(s)); end.

налить в 9-литровое 9 литров

отлить 2 раза по 4 л. останется 1 л его вылить в 4х литровое

налить полное 9-литровое ведро и отлить из него в 4х литровое в котором уже есть 1 литр туда войдет 3 литра в 9-литровом останется 6 литров

б,в,г,е - лцд  остальное к трубке

var n,count,sum: integer;

begin

    read(n);

    count: =0;

    sum: =0;

    while (n< > 0) do

        inc(count);

        sum: =sum+(n mod 10);

        n: =n div 10;

    end

end.