1)Ввести естественное число и определить, правильно ли, что в его записи

1. var a, tmp:integer;
var b:boolean;
begin
b:=false;
readln(a);
tmp := a mod 10; a:= a div 10;
while a gt; 0 do
begin
if tmp = a mod 10 then b := true
else tmp := a mod 10;
a := a div 10;
end;
writeln(b);
end.


2.var a, i:integer;
var t:array[0..9] of integer;
var b:boolean;
begin
b:=false;
readln(a);
while a gt; 0 do
begin
inc(t[a mod 10]);
a := a div 10;
end;
for i:=0 to 9 do if t[i] gt; 1 then b := true;
writeln(b);
end.