Программа-гадалка на языке программирования Паскаль (9 класс, информатика)

Программа - гадалка Пользователь вводит с клавиатуры 3 целых положительных числа. Если их сумма больше 100, то программа выводит надпись: "Сегодня у Вас удачный день". Если их сумма чисел меньше 10, то программа предскажет: "Сегодня Вам лучше не выходить на улицу!". Если произведение указанных чисел равно 125, то программа порадует надписью: "Сегодня Вам повезет в любви!!!". Если первое и последнее числа совпадут, то программа пообещает: "Сегодня денежный день". А если хотя бы одно из чисел будет равно 2, то программа предупредит: "Завтра тебя спросят по математике. Готовься!" Program Gadanie; Var x, y, z: integer; Begin write('x='); readln(x); write('y='); readln(y); write('z='); readln(z); if x+y+z>100 then write('Сегодня у Вас удачный день'); if x+y+z<10 then write('Сегодня Вам лучше не выходить на улицу!); if x*y*z = 125 then write('Сегодня Вам повезет в любви!!!'); if x = z then write('Сегодня денежный день'); if (x=2) or (y=2) or (z=2) then write('Завтра тебя спросят по математике. Готовься!'); end. Проверь работу этой программы и придумай свой вариант гадания.