program pr;
const n=3;
type
car=record
title:string[30];
moch:real;
speed:integer;
price:real;
massa:integer;
kuzov:string[30];
cil:real;
end;
var i,k,b2:integer;
info:array[1..n] of car;
b:real;
b1:string[30];
BEGIN
for i:=1 to n do
with info[i] do
begin
writeln('vvedite dannye dlya ',i,'-i mashiny :');
write('nazwanie '); readln(title);
write('mochnost '); readln(moch);
write('speed '); readln(speed);
write('massa '); readln(massa);
write('kuzov '); readln(kuzov);
write('cikindr '); readln(cil);
write('chena '); readln(price);
end;
for k:=N downto 2 do
for i:=1 to k-1 do
if info[i].moch>info[i+1].moch then
   begin
   b:=info[i].moch;
   info[i].moch:=info[i+1].moch;
   info[i+1].moch:=b;
    b1:=info[i].title;
   info[i].title:=info[i+1].title;
   info[i+1].title:=b1;
    b:=info[i].speed;
   info[i].speed:=info[i+1].speed;
   info[i+1].speed:=b2;
    b:=info[i].cil;
   info[i].cil:=info[i+1].cil;
   info[i+1].cil:=b;
    b1:=info[i].kuzov;
   info[i].kuzov:=info[i+1].kuzov;
   info[i+1].kuzov:=b1;
    b:=info[i].price;
   info[i].price:=info[i+1].price;
   info[i+1].price:=b;
    b2:=info[i].massa;
   info[i].massa:=info[i+1].massa;
   info[i+1].massa:=b2;
   end;
writeln('title|moch|speed|massa|kuzov|cil|price|');
writeln;
for i:=1 to n do
with info[i] do
writeln(title,' , ',moch:2:2,' , ',speed,' , ',massa,' , ',kuzov,' , ',cil:2:2,' , ',price:2:2);
END.