Program perulangan/looping pada Pascal

uses crt;
 var
 a,b,c : integer ;
 begin
clrscr;
 write ('masukan nilaimu = ');
 readln(c);

 for a:= 1 to c do
 begin
 for b:= 1 to a do
 write ('*');
 writeln;
 end;

readln;
end.

Tamilan/Outputnya akan seperti ini :
*
**
***
****

• Tweet
• Share
• Share
• Share
• Share