Мне нужна программа на abc psacal.net.
Я ввожу слово+рандомное число "Положить 500"
Мне должно вывести сумму числа, в данном случае будет 1000.

begin

 var str := ReadString().ToWords;

 try

   write(str[1].ToInteger * 2);

 except

   write('Ошибка при вводе.');

 end;

end.