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;
begin
clrscr;
     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);
 	for i:=1 to 5 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 5 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 5 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 5 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;
 	until(a=5);
 	writeln('==========KONEC=========');
readln;
end.