SEDIKIT CONTOH TENTANG KODING PASCAL

uses crt;
var
a,b,c : integer;
begin
clrscr;
write ('Masukan bilangan 1 : ');readln(a);
write ('Masukan bilangan 2 : ');readln(b);
c :=1;
while c<=b do
begin
write (a*c,' ' );
c:=c+1;
end;
readln;
end.