8. UNTUK MENAMPILKAN BILANGAN KELIPATAN 3 DAN KELIPATAN 5 DARI ANGKA 1 SAMPAI DENGAN 30.

uses crt;
var I,A,B: integer;
begin
clrscr;
A:= 3;
B:= 5;
for I:= 1 to 6 do
begin
write (A,B);
A:= A+3;
B:= B+5;
end;
Readln;
End.