RosettaCodeData/Task/Loops-For/Simula/loops-for.simula

10 lines
143 B
Plaintext

begin
integer i,j;
for i:=1 step 1 until 5 do
begin
for j:=1 step 1 until i do
outtext("*");
outimage
end
end