Решите и составьте к ним блок схемы, . язык - pascalabc 1. дана последовательность из n чисел. вычислить сумму элементов, кратных 6 и оканчивающихся на 4. предусмотреть вывод на печать "нет", если удовлетворяющие условию числа в последовательности отсутствуют. 2. дана последовательность чисел, оканчивающихся на 0. вычислить наибольший положительный элемент, кратных 3. предусмотреть вывод на печать "нет", если удовлетворяющие условию числа в последовательности отсутствуют.

ввод нуля останавливает программу
(исходя из условия оканчивающихся на 0)

var i,max,fl: integer;
begin
i:=1;
max:=0;
fl:=0;
       while(i<>0) do
       begin
          readln(i);
          if((i mod 3=0)and(i>max)) then
              begin
              max:=i;
              fl:=1;
              end;
          end;
if (fl=1) then writeln('Максимальный =',max);
if (fl=0) then writeln('нет');
end.
Тестовый ввод
3
4
9
8
6
0

Вывод
максимальный = 9