Program For _to_do

program for_do;
uses wincrt;
var x,y,z,jum:integer;
begin
write('masukkan nilai bilangan= ');read(y);
for x:=1 to y do
begin
for z:=1 to x do
write(x:3);
jum:=x*z;
writeln( ' = ',jum);
end;
end.



program for_to_do_;
uses wincrt;
var x:integer;
begin
for x:=1 to 10 do
if x mod 2=1 then
writeln(x,'. Pemograman Komputer');
end.