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)
Komentar