Input nilai Y (Turbo Pascal)
uses crt var i : integer : y : integer ; begini clrscr ; write('input nilai y = '):readln(Y); for i := 1 to 10 do begini writeln, ' x ' , y , ' = ' , i * y) ; end: readln:_ end (setelah itu tekan Alt + F9 secara bersamaan / klik Run di menu)