program opacny_vypis;
const maxp=100;
                   (*konštanta udávajúca maximálny počet položiek poľa*)
type vectorc=array[1..maxP] of real;
                   (*definícia vlastného typu s názvom vectorc*)
var pocet,i:integer;           (*deklarácia premenných*)
         cisla:vectorc;
begin 
  (* cyklom obmedzíme zadanie len maximálne 100 pre rozsah pola*) 
  repeat 
	writeln('Zadaj pocet prvkov');
	readln(pocet);
	if ((pocet<1) or (pocet>100)) then 
									writeln('Chybne zadany pocet cisel na nacitavanie');
  until ((pocet>=1) and (pocet<=max));
                (* nacitanie cisel do pola daneho rozsahu*) 
  for i:=1 to pocet do (*nacitanie prvkov pola s nazvom cisla*)
  begin 
	writeln(i,'.cislo');
	readln(cisla[i]);
  end;
 
  writeln('Vypis cisel v opacnom poradi');
  for i:=pocet downto 1 do             (*vypis na obr. V opacnom poradi*)
	writeln(cisla[i]);
    readln;
end.