program pascal

Senin, 01 Maret 2010
program tes;
uses crt;
var
a,b,i : integer;
begin
clrscr;
write ('masukan bil1: ' );readln(a);
write (;masukan bil2: ' );readln(b);
i : =1;
while i<=b do
begin
write (a*i, ' ' );
i : =i+1;
end;
readln;
end.

0 komentar:

Posting Komentar

About me