1.Дано натуральное число m. Подсчитать количество всех 0 в числе.
2.Дано натуральное число n. Вывести это число в обратном порядке
(все на языке паскаль ABC)

Varm,n:integer;BeginWriteLn('m = ');ReadLn(m);n:=0;While m>0 do   Begin   if m mod 10 = 0 then n:=n+1;   m:=m div 10   End;WriteLn('Кол-во нулей в данном числе равно: ',n);End.Varn:integer;BeginWrite('n = ');ReadLn(n);While n>0 do   Begin   Write(n mod 10);   n:= n div 10   End;End.