program New_Progrm_for_Znanija;
type State=record
     Sity_Name:String;
     Population:integer;
     Area:real;
     Income:integer;
     Temperature:real;
     Electric:integer;
     Currency:String;
end;
var
SrPopulation,SrElectricR:real;
SrElectric,Tmp,Tmp1:integer;
Mass: array[0..34] of State;
QuestM: array[0..3] of State;
Begin
SrPopulation:=0;
SrElectric:=0;
Tmp1:=0;
for Tmp:=34 downto 0 do
begin
Write(' Название государства = ');
ReadLn(Mass[Tmp].Sity_Name);
Write(' Численность населения в этом государстве = ');
ReadLn(Mass[Tmp].Population);
Write(' Площадь территории = ');
ReadLn(Mass[Tmp].Area);
Write(' Доход на душу населения = ');
ReadLn(Mass[Tmp].Income);
Write(' Среднегодовую температуру = ');
ReadLn(Mass[Tmp].Temperature);
Write(' Производство электроэнергии = ');
ReadLn(Mass[Tmp].Electric);
Write(' Название денежной единицы данной страны = ');
ReadLn(Mass[Tmp].Currency);
end;
for Tmp:=34 downto 0 do
begin
if ((Mass[Tmp].Sity_Name = 'Норвегия') or (Mass[Tmp].Sity_Name ='Франция') or (Mass[Tmp].Sity_Name ='Греция') or (Mass[Tmp].Sity_Name ='Люксембург'))
then
begin
QuestM[Tmp1]:=Mass[Tmp];
Tmp1:=Tmp1+1;
end;
end;
for Tmp:=0 to 3 do
begin
 SrPopulation:=QuestM[Tmp].Population+SrPopulation;
 SrElectric:=QuestM[Tmp].Electric+SrElectric;
end;
SrPopulation:=SrPopulation/4;
SrElectricR:=SrElectric/4;
Write('Названия государств, имеющих среднюю плотность населения больше ');
WriteLn(SrPopulation);
Write('и с производством электроэнергии меньше  ');
WriteLn(SrElectric);
for Tmp:=34 downto 0 do
begin
if ((Mass[Tmp].Population>SrPopulation) and (Mass[Tmp].Electric<SrElectricR))
then
begin
Tmp1:=99;
Write(Mass[Tmp].Sity_Name);
end;
end;
if Tmp1=99 then Writeln('Таких государств нет');
Readln();
end.