Задача на Паскаль,Помогите, пожалуйста дано N трехзначное число. Заменить первую цифру на один.
Var a: integer; begin read(a); writeln(1, a mod 100); end.