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

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.