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.
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.