uses
SysUtils;
var
x:integer;
begin
x:=1;
while(x<10) do
begin
writeln(x);
x:=x+1;
end;
readln;
{ TODO -oUser -cConsole Main : Insert code here }
end.
-
FACEBOOK
Welcome to my blog
Senang bisa membantu kalian semua
dan Semoga tulisan saya bermanfaat,
Sekenannya komentar anda supaya saya bisa
mengerti apa yang di dapatkan oleh pembaca
-
FACEBOOK
Welcome to my blog
Senang bisa membantu kalian semua
dan Semoga tulisan saya bermanfaat,
Sekenannya komentar anda supaya saya bisa
mengerti apa yang di dapatkan oleh pembaca
0 komentar:
Posting Komentar