Сделайте . ₽.$. в некоторых есть ответы.

program z1;

var a,m:integer;

begin

m:=30000;

repeat

read(a);

if (a <> 0) and (a mod 2 = 0) and (a mod 10 <> 2) and (m > a) then m:=a

until a = 0;

writeln(m)

end.

Объяснение:

m равно максимально возможному чётному числу (согласно условию)

Цикл с пост условием:

ввод числа

проверка числа (верно, когда верны все условия):

    не 0 (a <> 0) - не является условием окончания последовательности

    число чётное (a mod 2 = 0)

    число не оканчивается на 2 (a mod 10 <> 2)

    число меньше m (m > a)

если проверка пройдена, то переменной m присваивается значение числа

Проверка условия выхода из цикла (a = 0)

Вывод m

program z1;

var a:integer;

begin

write('Введите шестизначное число: ');

readln(a);

if a div 1000 div 100 + a div 1000 mod 100 div 10 + a div 1000 mod 10 = a mod 1000 div 100 + a mod 1000 div 10 mod 10 + a mod 1000 mod 10

then write ('счастливый билет')

else write ('обычный билет')

end.

Объяснение:

Вводим число

Если сумма первых 3 цифр равна сумме последних 3 цифр, то билет счастливый, иначе обычный

a div 1000 - первые 3 цифры

a div 1000 div 100 - первая цифра первых 3 цифр

a div 1000 mod 100 div 10 - вторая цифра первых 3 цифр

a div 1000 mod 10  - третья цифра первых 3 цифр

a mod 1000 - последние 3 цифры

a mod 1000 div 100 - первая цифра последних 3 цифр

a mod 1000 div 10 mod 10 - вторая цифра последних 3 цифр

a mod 1000 mod 10  - третья цифра последних 3 цифр