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.