Дано целое число а. если значение а< > 0, то необходимо уменьшить его на 4. написать программу для решения этой . программа должна иметь дружественный интерфейс.

Program chisloA;
Var a:longint;
Begin
  readln(a);
If a<>0 then a:=a-4;
  writeln(a);
End.

A = int(input())
if A > 0 or A < 0:
    A -= 4