Write a qbasic program to accept a no and print it multiple table?

Cls

print the multiples tables of 1 to 5

for x=1 to 5

for y=1 to 10

print x;"*";y;"=";x*y

next y

print

print

next x

end