Написать программу, которая в зависимости от введенного числа k, выполяняет разные действия. если число отрицательное или не делится на 4, то |k+5|, иначе k²+5.

//PascalABC.NET (версия 3.1, сборка 1196 от 09.03.2016)
var k:integer;
begin
  writeln('Введите k ');
  readln(k);  
  if (k<0)or (k mod 4<>0) then writeln(abs(k+5))
    else writeln (sqr(k)+5);
end.