Составить программу на pascal. условие: введите число f c клавиатуры и если чило f> 3,то f-5 если f=3,то f-2 если f< 3, то f+1

Var
    f: integer;

begin
    readln(f);
    
    if f > 3 then f := f - 5
    else if f = 3 then f := f - 2
    else f := f + 1;
    
    writeln(f);
end.