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.