Дано натуральное трехзначное число a. Сформировать число b, такое что: число сотен в нем равнялось бы цифре сотен числа а, увеличенной на цифру единиц числа а, число десятков в b обнулить, а вместо единиц поставить число десятков от числа а. (никакие поясняющие записи в программе делать не нужно! библиотеку conio.h и команду getch() перед отправкой файла необходимо удалить!) Пример входных и выходных данных № теста |Входные данные |Выходные данные ______________________________________ 1 | 473 | 707 Ответ: Прикрепите файл с программой в формате CPP, PAS, CS, FS или JAVA. Ваш ответ будет проверен автоматически.

Var
    a: integer;

begin
    readln(a);
    a := 100 * (a mod 10 + a div 100) + a div 10 mod 10;
    writeln(a);
end.