uses
 crt;
const n=4;{kol-vo televizorov}
var
 a:array[1..n] of record
   title,zavod,city,director:string[20];
   price:real;
   diagonal:byte;
   color:char;
 end;
 g:array [1..n] of string;
 i,j,k:byte;
 b:boolean;

begin
 clrscr;
 k:=0;
 {Vvod svedeniy o televizorah}
 for i:=1 to n do begin
   with a[i] do begin
     writeln('Televizor ',i);
     write('Nazvanie..........');
     readln(title);
     write('Cena..............');
     readln(price);
     write('Diagonal..........');
     readln(diagonal);
     write('Izobrajenie(c\m)..');
     readln(color);
     writeln('Proizvoditel:');
     write('Zavod.............');
     readln(zavod);
     write('Gorod.............');
     readln(city);
     write('Direktor..........');
     readln(director);
     if price<400 then begin
       if k=0 then begin
         k:=k+1;
         g[k]:=city;
       end;
       for j:=1 to k do begin
         b:=(city=g[j]);
         if b then break;
       end;
       if not(b) then begin
         k:=k+1;
         g[k]:=city;
       end;
     end;
   end;
 end;
 for i:=1 to k do writeln(g[i]);
 readln;
end.