Склавиатуры вводится число если оно делится на 4 увеличте его в 2 раза, если не делится уменьшите на 3.(pasckal)

Program n1;
var a: integer;
begin
readln(a);
if a mod 4=0 then a:=a*2 else a:=a-3;
write(a);
end.