for i := 0 to 3 do
begin
read(a)
k := 0
if(a mod 6) k := k+1;
end;
if(k > 0) then write('да');
else write('нет');
Объяснение:
