Написать программу подсчитывающую количество счастливых билетов - Pascal ABC

Формулировка задачи:

1. Билет называется «счастливым», если в его номере сумма первых трех цифр равно сумме последних трех. Написать программу, подсчитывающую количество тех «счастливых» билетов, у которых сумма трех цифр равна 13.

Решение задачи: «Написать программу подсчитывающую количество счастливых билетов»

Листинг программы

var i,j,k,m:integer;
begin
k:=0;
i:=0;
while i<=9 do
 begin
  j:=0;
  while j<=9 do
   begin
    m:=0;
    while m<=9 do
     begin
      if i+j+m=13 then inc(k);
      m:=m+1;
     end;
    j:=j+1;
   end;
  i:=i+1;
 end;     
k:=k*k;
write('k=',k);
end.

Объяснение кода листинга программы

В данном коде используется цикл while, который выполняется до тех пор, пока условие (i<=9 и j<=9 и m<=9) выполняется. Внутри цикла используются вложенные циклы while, которые также выполняются до тех пор, пока условие (i+j+m=13) выполняется. Внутри первого цикла while увеличивается значение переменной k, если выполняется условие (i+j+m=13). Во втором цикле while переменная m увеличивается на единицу до тех пор, пока не превысит значение 9. После выполнения всех вложенных циклов, значение переменной k умножается на само себя и выводится на экран с помощью функции write.