program contoh

Program Contoh_While_Do;
Uses winCrt;
Var i: integer;
Begin
i:=1;
While i<=10 do
Begin
Writeln('Aku ....... Kamu!');
i:=i+1;
End;
readln;
End.