program nnn;
uses crt;
const n=3;
type tel=record
naz:string[20];
izg:string[20];
cena:1..1000;
sc:real;
end;
var a:array[1..n] of tel;
i:integer; min:real;
Begin
clrscr;
for i:=1 to n do begin
writeln('Введите марки телевизоров: ',i);
readln(a[i].naz);
writeln('Введите страну-изготовителя: ');
readln(a[i].izg);
writeln('Введите стоимость: ');
readln(a[i].cena);
a[i].sc:=(a[1].cena+a[2].cena+a[3].cena)/3;
end;
writeln('ср цена: ',a[i].sc);
min:= a[1].sc;
for i:=2 to n do
if a[i].sc for i:=1 to n do
if a[i].sc=min then
writeln(a[i].naz, a[i].cena);
readln;
End.