Помогите , пожалуйстаа. Нужно составить программу

Question

Помогите , пожалуйстаа. Нужно составить программу

---

Answer 1

Попробуй делать через write и if

Answer 2

Var x:integer;
Begin
Readln(x);
If (x div 100 )=(x mod 100)
Then write('Билет счастливый')
Else write('Билет несчастливый');
End.