{
Utworz porcedure wyswietlajaca w jenej lini gwaizdki
ktorych ilosc jest okreslona przez jej parametr.

Nastepnie wykorzystaj te procedure
do utworzenia na ekranie nastepujacego wzoru:

}

program procedura;
uses crt;

    procedure zmienna;
    var i,x:integer;
    begin
    clrscr;
    writeln;
    textcolor(white);
    write('Podaj liczbe gwiazdek: ');
    textcolor(yellow);
    readln(x);
    writeln;
    textcolor(10);
              repeat
                  for i:=1 to x do
                  begin
                  write('*');
                  end;
              x:=x-1;
              writeln;
              until x=0;
    readln;
    end;

begin
clrscr;
zmienna;
end.