Tugas Algoritma "Menampilkan kelipatan 3 dan 5 dari angka 1 s/d 30

8. Menampilkan bilangan kelipatan 3 dan kelipatan 5 dari angka 1 s/d 30

Jawab:
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.