Напишите программу для решения задачи с клавиатуры вводится целое положительное 3-значное число ,если число четное то вычислить и вывести на экран все цифры числа каждую цифру в отдельной строке
begin
var n := ReadInteger;
if n.IsEven then n.ToString.ToCharArray.PrintLines
end.