Перевести программу, написанную на паскаль на язык программирования кумирprogram zz1;var s, n, k, p:integer; beginwrite(' введите натуральное число ');read(n); k:=n mod 10; s:=k; n:=n div 10; repeat k:=n mod 10; if k = s then p:=1; s:=k;n:=n div 10; until n=0;if p = 1 then writeln(' Верно ') else writeln(' Неверно '); end.