program repeat_until;
uses wincrt;
Var
I:integer;
begin
writeln('bilangan bulat kurang dari 20:');
I:=0;
repeat
I:=i+1;
write('bilangan ke-');
writeln(I);
until I=20;
end.
Next
« Prev Post
« Prev Post
Previous
Next Post »
Next Post »
Subscribe to:
Post Comments (Atom)
EmoticonEmoticon