Билет называется "Счастливым", если сумма цифр его номера равна 13. Написать программу, которая определяет счастливый ли билет, если с клавиатуры вводится трехзначное число​

Материк, носящий название Австралия, занимает площадь 7 659 861 км² в Южном полушарии. Береговая линия имеет длину 35 тыс. км, ширина континента составляет 4000 км, а длина достигает 3700 км.Рядом с Австралией находятся такие острова, как Тасмания и Новая Гвинея. Западное и южное побережье Австралии омываются водами Индийского океана, а восточное и северное побережья – морями Тихого океана.Это Тиморское, Коралловое, Арафурское и Тасманово моря. Также возле северо-восточного побережья Австралии находится самый крупный коралловый риф в мире, Большой Барьерный риф тянется более чем на 2000 км. Ширина его может достигать 150 км.Крайней западной точкой материка является мыс Стип-Пойнт, восточной – мыс Байрона, северной крайней точкой является мыс Йорк, а южная точка Австралии – это мыс Саут-Пойнт.В большой мере Австралия расположена в жарком тепловом поясе, а берега материка немного изрезаны. На юге Австралии находится Большой Австралийский залив, а залив Карпентария находится на севере, как и два полуострова Кейп-Йорк и Арнемленд. Внутренними морями Австралия связана с Юго-Восточной Азией.История исследования материкаСамый маленький из всех, этот материк пришлось искать довольно долго. В 1606 году был открыт пролив, который отделяет Новую Гвинею от материка. Этот пролив был назван именем открывателя – Торрес. И в этом же году мореплаватель Янсзон оказался на побережье залива Карпентария.Через несколько десятилетий, в 1643 году, было доказано, что Австралия представляет собой единую сушу. Доказал это мореплаватель Тасман и также он открыл остров, который впоследствии был назван его именем.В 1770 году Джеймс Кук, будучи известным английским мореплавателем, оказался на восточном побережье самой Австралии. С тех пор начался процесс колонизации англичанами, изучение Австралии, как отдельного континента, и хозяйственное освоение ее территории.Земли Австралии стали называть Новым Южным Уэльсом. В те времена Австралия стала местом ссылки для преступников, осужденных за мелкие нарушения. Позднее поселение, считавшееся британской колонией, было названо Сиднеем. Оно было основано 26 января в 1788 году – основателем является капитан Артур Филип.А территория Тасмании присоединилась к остальным землям Австралии в 1829 году. Середина 19 века – это начало «золотой лихорадки» на территории Австралии, именно для этого периода характерны волны массовой иммиграции в Австралию.А в 1901 году – 1 января – Австралия стала независимым государством, образовав Австралийский Союз.

Program Task;
Const N = 499; M = 1;
Var A: Array [1..N, 1..N] of Boolean;
i, j, x, y, t: Integer;
b: Boolean;
Begin
Randomize;
While i < M Do
Begin
x := Random(N) + 1;
y := Random(N) + 1;
If A[x, y] = False Then
Begin
A[x, y] := True;
i := i + 1;
End;
End;
While b = False Do
Begin
b := True;
For i := 1 To N Do
For j := 1 To N Do
Begin
If A[i, j] = True Then
Begin
If (i + 1) <= N Then
A[i + 1, j] := True;
If (i - 1) > 0 Then
A[i - 1, j] := True;
If(j + 1) <= N Then
A[i, j + 1] := True;
If (j -1) > 0 Then
A[i, j - 1] := True;
End;
End;
For i := 1 To N Do
For j := 1 To N Do
If A[i, j] = False Then
b := False;
t := t + 1;
End;
WriteLn(t);
ReadLn;
End.