1)
var a,a1,a2:integer;beginreadln(a);a1:=strtoint(copy(inttostr(a),1,1));a2:=strtoint(copy(inttostr(a),2,1));if a1>a2 then write(a1,'>',a2) elsewrite(a1,'<',a2);end.<br>2)
var a,a1,a2,a3,a4,s:integer;beginreadln(a);a1:=strtoint(copy(inttostr(a),1,1));a2:=strtoint(copy(inttostr(a),2,1));a3:=strtoint(copy(inttostr(a),2,1));a4:=strtoint(copy(inttostr(a),2,1));s:=a1+a2+a3+a4;if s mod 3 = 0 then write('Сумма цифр ',a,'=',s,' - кратно 3')else write('Сумма цифр ',a,'=',s,' - не кратно 3');end.