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

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

begin

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

end.

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