Дано натуральное четырехзначное число,верно ли, что все его ...

Настя

var a,b,c,d,e:integer;beginread(a);b:=a mod 10;a:=a div 10;c:=a mod 10;a:=a div 10;d:=a mod 10;a:=a div 10;e:=a mod 10;if (bc) and (bd) and (be) and (cd) and (ce) and (de) then write('net povtorov')else write('est povtori');end.