// PascalABC.NET 3.3, сборка 1579 от 18.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
var (a,b,c):=ReadInteger3('Самолетов, ракет, спутников:');
Writeln('Набрано очков: ',50*a+100*b+200*c)
end.
Пример
Самолетов, ракет, спутников: 20 13 8
Набрано очков: 3900