Если не тот язык, укажите какой нужен.
var a: integer;
f: real;
begin
write('Введите а: '); readln(a);
if(a <= 0) then f := sqr(a) + 4*a + 5
else f := 1 / (sqr(a) + 4*a + 5);
writeln('f(', a, ') = ', f);
end.
<h3>PascalABC.NET 3.4.2, сборка 1847 от 28.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var n := ReadInteger;
if n.IsEven then n.ToString.ToCharArray.PrintLines
end.
<h2>518</h2><h2>5</h2><h2>1</h2><h2>8</h2>
Линия, прямоугольник, эллипс, многоугольник.