89983 trojkąt

piogram cw3_52;

{ Program wypisuje trójkąt ze znaków *. }

{ Katalog r3_10 : 3_52.pas    }

var

I, N : Byte;

procedurę Gwiazdki (N : Byte);

{ Procedura wypisuje N gwiazdek i powoduje przejście } { do nowego wiersza.    }

var

I : Byte; begin

for I 1 to N do

Write ('*');

Writeln;

end; {------------------------------------Gwiazdki -}

begin

Write ('Podaj bok trojkata: '); Readln (N); if (N<1) then

Writeln ('Trójkąt bedzie niewidoczny.') else

if (N>24) then

Writeln ('Trójkąt nie zmieści sie na ekranie.') else

for I 1 to N do

Gwiazdki (I);

Readln; end.