Решить задачу: Билет называют "счастливым", если в его номер сумма первых трёх цифр равна сумме последних трёх. Подсчитать число тех "счастливых" билетов, у которых сумма трёх цифр равна 13.

uses crt;

var a,b,c:byte;

   d:word;

begin

clrscr;

d:=0;

for a:=0 to 9 do

for b:=0 to 9 do

for c:=0 to 9 do

if a+b+c=13 then d:=d+1;

d:=d*d;

write('Kolichestvo schasctlivih biletov=',d);

readln

end.