Язык Pascal
Ввести с клавиатуры натуральное четырехзначное десятичное число.

Проверить число и вывести на экран сообщение о том, является ли число счастливым или нет.

Счастливым считается число, у которого сумма двух младших цифр
равна сумме двух старших цифр. Например: 2341 - счастливое число,
а 3145 - нет

var a:integer;i,k:integer;begin  write('Введите четырехзначное число: ');  readln(a);  if ((a mod 10)+(a div 10) mod 10)=(a div 1000 + (a div 100) mod 10) then    writeln('Счастливый')  else  writeln('Не счастливый');end.Тест №1Введите четырехзначное число: 2341СчастливыйТест №2Введите четырехзначное число: 3145Не счастливый