Перевести программу, написанную на паскаль на язык программирования кумир program zz1;

var s, n, k, p:integer;
begin
write(' введите натуральное число ');
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.

81MrTNTminer81    1   09.02.2021 21:00    0