Дано четырехзначное число. Написать программу, которая определяет равна ли сумма первых двух его цифр сумме двух его последних цифр.

program zz1;

var k, i1, i2, i3, i4:integer; / / задаем переменные целого типа

begin

write (' введите заданное четырехзначное число '); / / вводим заданное число с клавиатуры

read (k);

i1:=k div 1000; / / находим первую цифру числа

i2: = (k div 100) mod 10; / / находим вторую цифру числа

i3: = (k div 10) mod 10; / / находим третью цифру числа

i4:=k mod 10; / / находим четвертую цифру числа

if (i1 + i2 = i3 + i4)

then writeln (' равна ') else writeln (' не равна '); / / проверяем условие и выводим ответ

end.