program PowerToWeightRatio;
var
Power: array[1..6] of Integer = (5, 9, 15, 27, 46, 60);
Weight: array[1..6] of Integer = (30, 52, 90, 155, 270, 465);
PowerToWeightRatio: array[1..6] of Real;
i: Integer;
begin
for i := 1 to 6 do
begin
PowerToWeightRatio[i] := Power[i] / Weight[i];
writeln('Мощность на единицу массы для генератора ', i, ' = ', PowerToWeightRatio[i]:0:2, ' кВт / кг');
end;
end.

Эта программа вычисляет и выводит значение мощности на единицу массы для каждого генератора переменного тока в кВт / кг.