Пожалуйста посчитайте плесинформатики

PascalABC.NET 3.3

const m=10;
var
k:array[1..m] of integer=
(58100,81200,10300,5190,39100,57200,38500,9800,5060,57800);
s:array[1..m] of real=
(244.1,357,132,43.1,504.8,301.2,312.7,92.0,337,551);
n:array[1..m] of string;
p:array[1..m] of real;
k1:integer; r:real; n1:string;
i,j:integer;
begin
n[1]:='Великобритания';
n[2]:='Германия';
n[3]:='Греция';
n[4]:='Дания';
n[5]:='Испания';
n[6]:='Италия';
n[7]:='Польша';
n[8]:='Португалия';
n[9]:='Финляндия';
n[10]:='Франция';
for i:=1 to m do p[i]:=k[i]/s[i];
for j:=1 to m-1 do
  for i:=1 to m-j do
    if p[i]>p[i+1] then begin
        r:=p[i]; p[i]:=p[i+1]; p[i+1]:=r;  // swap(p[i],p[i+1]);
        k1:=k[i]; k[i]:=k[i+1]; k[i+1]:=k1;  //swap(k[i],k[i+1]);
        r:=s[i]; s[i]:=s[i+1]; s[i+1]:=r;  //swap(s[i],s[i+1]);
        n1:=n[i]; n[i]:=n[i+1]; n[i+1]:=n1;  //swap(n[i],n[i+1]);
    end;
for i:=1 to m do
 writeln(n[i],' ':15-length(n[i]),p[i]:5:2);
end.

Результат:
Финляндия      15.01
Испания        77.46
Греция         78.03
Франция        104.90
Португалия     106.52
Дания          120.42
Польша         123.12
Италия         189.91
Германия       227.45
Великобритания 238.02