Дана не пустая последовательность целых чисел, оканчивающаяся нулём. Найдите сумму всех чётных чисел, кратных 3.

program Z1;
var
ch,s:integer;
begin
writeln('введите последовательность натуральных чисел, оканчивающихся 0);
readln(ch);
s:=0;
while ch<>0 do
begin
if not(odd(ch)) and (ch mod 3=0)then s:=s-ch:
readln (ch) ;
end;
writeln (' s='s) ;
end

2.Дана не пустая последовательность целых чисел, оканчивающаяся нулём. Найдите минимальное число этой последовательности, исключая последний ноль.

var
min ch:integer ;
begin
writeln (' введите последовательность натуральных чисел, оканчивающихся 0';)
readln (ch)
min:=ch ;
while ch<>0 do
begin
if (ch<min) and (ch<>0)then min :=ch :
readln (ch) ;
end;
writeln ('min =', min) ;
end

Домашнее задание.
1. Дана не пустая последовательность целых чисел, оканчивающаяся нулём. Найдите количество всех нечётных чисел, оканчивающихся цифрой 3.
2. Дана не пустая последовательность целых чисел, оканчивающаяся нулём. Найдите максимальное число этой последовательности.

​