# vypíše násobilku

reset
nechveľkosťplátna 300, 250
skry
perohore
nechpozícia 10, 0

n = inputwindow "Zadajte číslo, pre ktoré chcete vypísať násobilku."

pre x = 0 po 10
[
   vzad 20
   r = x*n
   vytlač x, " * ", n, " = ", r
]