Написать программу, которая проверяет – имеется ли в записи натурального числа ноль.
Язык программирования паскаль.

program red;var a,b,c:integer;beginb:=0;readln(a);if a<10 thenbeginif a*5=0 then b:=1;end;if (a>=10) and (a<100) thenbeginif ((a div 10)*5=0) then b:=1;if ((a mod 10)*5=0) then b:=1;end;if (a>=100) and (a<1000) thenbeginif ((a div 100)*5=0) then b:=1;if (((a div 10) mod 10)*5=0)then b:=1;if ((a mod 10)*5=0)then b:=1;end;if b=1 then writeln('yes') else writeln('no');end.