uses crt;
type auto = record
	nazev: string;
	rok: integer;
	cena: real;
	barva:string;
        metal:string;
	end;
var auta: array[1..5] of auto;
        i,mez: integer;
       	a,b,mez1:real;
	mez2:string;
        mez3:string;
begin
clrscr;
     for i:=1 to 4 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);
       write('Zadejte metalyzu ',i,'.auta: ');
       readln(auta[i].metal);
 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('Vypsat podle ceny a metalyza:5');
        writeln('KONEC:6');
	writeln('========================');
 	readln(a);
 begin
 	if a=2 then
 begin
	writeln('zadej mezni rok vyroby: ');
 	readln(mez);
 	for i:=1 to 4 do if mez<auta[i].rok then writeln('mladsi: ',auta[i].nazev,'   rok vyroby: ',auta[i].rok);
 	writeln('========================');
 end;
 end;
 begin
 	if a=1 then
 begin
 	writeln('zadej mezni cenu auta: ');
 	readln(mez1);
 	for i:=1 to 4 do if mez1>auta[i].cena then writeln('nazev: ',auta[i].nazev ,'   cena: ',auta[i].cena:0:0);

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