program kelipatan;
uses wincrt;
var
a: integer;
begin
a := 0;
while a<=100 do
begin
write(a,' ');
a := a+5;
end;
end.
==========================================>>
Running Program:
0 komentar:
Post a Comment