while - do

contoh program menggunakan struktur while - do
program sumpah;
uses crt;
var A,angka:integer;
janji:string;
begin
clrscr;
write('berapa kali kamu berjanji = ');readln(angka);
write('apa janjimu = ');readln(janji);
A:=1;
while A<=angka do
begin
writeln(janji);
A:=A+1;
end;
readln;
end.