Написать программу: с клавиатуры вводится четырехзначное целое число. Вывести на экран сообщение о соотношении суммы крайних цифр и суммы средних цифр этого числа (меньше, больше или равны).

var a,a1,a2,a3,a4,s1,s2:integer;beginreadln(a);a1:=a div 1000;a2:=a div 100 mod 10;a3:=a mod 100 div 10;a4:=a mod 10;s1:=a1+a4; s2:=a2+a3;if s1>s2 then writeln(s1,' > ',s2) else if s1<s2 then writeln(s1,' < ',s2)  else writeln(s1,' = ',s2);end.Пример:43826 < 11