program Europe;
type country = record
  name, currency : string[40];
  people, square, power : longint;
  income, temp : integer;
  end;

var eu : array [1..3] of country;
t : country;
i, j : integer;

begin
eu[1].name := 'France';
eu[2].name := 'Norway';
eu[3].name := 'Poland';

write('Введите среднегодовую температуру Франции: ');
readln(eu[1].temp);
write('Введите среднегодовую температуру Норвегии: ');
readln(eu[2].temp);
write('Введите среднегодовую температуру Польши: ');
readln(eu[3].temp);

write('Введите площадь Франции: ');
readln(eu[1].square);
write('Введите площадь Норвегии: ');
readln(eu[2].square);
write('Введите площадь Польши: ');
readln(eu[3].square);


for i := 1 to 2 do
  for j := 1 to 3 - i do
    if eu[j].temp > eu[j + 1].temp then begin
      t := eu[j];
      eu[j] := eu[j + 1];
      eu[j + 1] := t;
    end;
for i := 1 to 3 do begin
  writeln(eu[i].name, ' - temperature : ', eu[i].temp, '; square : ', eu[i].square);
end;
end.