Localize file www.TrSek.com/cover/ghostix/trojuholnik.pas

{ TROJUHOLNIK.PAS                             Copyright (c) ghostix }
{ Program vykresli trojuholnik z hviezdiciek. Pouzita procedura.    }
{                                                                   }
{ Author: Ghostix                                                   }
{ Date  : 18.11.2007                           http://www.trsek.com }

program troj;
uses crt;
var k,i,pocet,j:integer;

procedure trj (x:integer);
begin
for i:=1 to x do
begin
   for j:=1 to x+1-i do
     write('*');
     writeln;
end;
end;

begin
clrscr;
writeln('Zadajte podstavu');
readln(pocet);
trj(pocet);
readln;
end.

Copyrigth by Zdeno Sekerak 2007, http://www.trsek.com