uses crt;
type auto = record
	nazev: string;
	rok: integer;
	cena: real;
	barva:string;
	end;
var auta: array[1..5] of auto;
        i,mez: integer;
       	a,b,mez1:real;
	mez2:string;
        procedure vypis;
        begin
      clrscr;
      writeln('***************************************');
      writeln('***************************************');
      writeln('Vypis aut dle zadanych podminek');
      writeln('***************************************');
      writeln('***************************************');
      writeln;
      writeln;
      writeln;
      writeln('nazev    cena    rok    barva');
      writeln('---------------------------------------');
      end;
 begin
     for i:=1 to 5 do
begin
       write('Zadejte nazev ',i,'.auta: ');
       readln(auta[i].nazev);
       write('Zadejte  rok vyroby ',i,'.auta: ');
       readln(auta[i].rok);
       write('Zadejte cenu ',i,'.auta: ');
       readln(auta[i].cena);
       write('Zadejte barvu ',i,'.auta: ');
       readln(auta[i].barva);
 end;
	repeat
 	writeln('========================');
     	writeln('Vypsat podle ceny:1');
	writeln('Vypsat podle roku vyroby:2');
	writeln('Vypsat podle barvy:3');
	writeln('Vypsat podle ceny a roku vyroby:4');
        writeln('KONEC:5');
	writeln('========================');
 	readln(a);
 begin
 	if a=2 then
 begin
	writeln('zadej mezni rok vyroby: ');
 	readln(mez);
 	vypis;
	for i:=1 to 5 do if mez<auta[i].rok then
	writeln(auta[i].nazev,'  ',auta[i].cena:0:0,'   ',auta[i].rok,'   ',auta[i].barva);
 end;
 end;
 begin
 	if a=1 then
 begin
 	writeln('zadej mezni cenu auta: ');
 	readln(mez1);
 	vypis;
	for i:=1 to 5 do if mez1>auta[i].cena then
	writeln(auta[i].nazev,'  ',auta[i].cena:0:0,'   ',auta[i].rok,'   ',auta[i].barva);
 end;
 end;
 begin
	if a=3 then
 begin
	writeln('zadej barvu auta: ');
	readln(mez2);
	vypis;
	for i:=1 to 5 do if mez2=auta[i].barva then
	writeln(auta[i].nazev,'  ',auta[i].cena:0:0,'   ',auta[i].rok,'   ',auta[i].barva);

 end;
 end;
 begin
	if a=4 then
 begin
	writeln('zadej mezni cenu auta: ');
	readln(mez1);
	writeln('zadej mezni rok vyroby: ');
	readln(mez);
	vypis;
	for i:=1 to 5 do if (mez1>auta[i].cena) and (mez<auta[i].rok) then
        writeln(auta[i].nazev,'  ',auta[i].cena:0:0,'   ',auta[i].rok,'   ',auta[i].barva);
 end;
 end;
 	until(a=5);
 	writeln('==========KONEC=========');
readln;
end.