program bintang di pascal

program bintang;

uses crt;

var

x,y,z: integer;

begin

clrscr;

 

write(‘masukkan batas :’);

readln(z);

for x:=1 to z do

begin

 

for y : = 1 to x do

begin

write(‘*’);

end;

writeln;

end;

for x:=1 to z do

begin

for y:=1 to 10 do

begin

if (x+y<=10) then

write(‘ ‘);

else

write(‘*’);

end;

writeln;

end;

readln’;

end.