Program 1 sampai 100
program lat0301;
uses wincrt;
var i:integer;
begin
for i:= 1 to 100 do
begin
write(i);
write(' ');
end;
end.
uses wincrt;
var i:integer;
begin
for i:= 1 to 100 do
begin
write(i);
write(' ');
end;
end.
screenshot output program
Semoga Bermanfaat.....
0 Comments
