11 lines
249 B
ObjectPascal
11 lines
249 B
ObjectPascal
Program pr1;
|
|
var A, B, C: integer;
|
|
begin
|
|
writeln('Ñàìîë¸òîâ, ðàêåò, ñïóòíèêîâ');
|
|
readln(A, B, C);
|
|
writeln('Èãîðàê ñáèë:');
|
|
writeln(A,' Ñàìîë¸òîâ');
|
|
writeln(B,' Ðàêåò');
|
|
writeln(C,' Ñïóòíèêîâ');
|
|
writeln('Îí íàáðàë ', A*50+B*100+C*200, ' î÷êîâ');
|
|
end. |