Напишите программу пожалуйста

Question

Напишите программу пожалуйста

---

Answer 1

Ответ:

begin

 var A := Readinteger();

 if A.ToString.EndsWith('0') then A.Println else (A*10).Println;

end.