Язык Pascal. Напишите программу, которая позволяет вводить с клавиатуры 4-значное число и определять, является ли число счастливым или нет. Счастливое число — это такое, у которого сумма первых двух цифр равна сумме двух последних. Например, число 1230 — счастливое, а 1234 — нет. На вход программы подаётся четырёхзначное натуральное число (проверку корректности ввода проводить не надо), на выходе должно появиться одно слово - Yes (с заглавной буквы!), если число счастливое, и No, если нет.
var A,s1,s2: integer;
begin
write('Введите число: '); readln(A);
s1 := (A div 1000) + (A div 100) mod 10;
s2 := (A div 10) mod 10 + A mod 10;
if s1 = s2 then writeln('Yes')
else writeln('No');
end.