{ 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.