Question

помогите написать на Паскале

Дано натуральное число Y. Увеличить его на 18, если число двухзначное.
входные данные 23
выходные данные 41

Answer 1

===== PascalABC.NET =====

begin

 var Y := ReadInteger('Y =');

 if Y in Range(10, 99) then

   Println(Y + 18)

end.