trójkąt2

program 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 trój kata: '); 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.