Составить программу:
Вводятся 3 числа. Если среди них есть четные, то возвести их в квадрат. Вывести эти числа. Например: ввод 1,5,6. Вывод: 1,5,36.

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

begin

 ReadArrInteger(3).Select(p -> p.IsEven ? p * p : p).Println(',')

end.

Замечание: В Паскаль данные разделяются пробелами, или переводами строки (клавиша Enter), поэтому вводить черз запятую не выйдет )))