Contoh Program Kelipatan 5 Repeat Until Pada Pascal

Contoh Program Kelipatan 5 Repeat Until

Pada Pascal

uses crt;

var a: integer;

begin

clrscr;

a:=5;

repeat

write(a,’ ‘);

a:=a+5;

until a>25;

readln;

end.