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

Программа работает в цикле while. После каждого ввода числа и получения результата можно продолжить работу в программе нажав 'y' или выйти из программы после нажатия на 'n'.

program condition;

var f: integer;

var s: char;

begin

s:='y';

while s='y' do

begin

write ('Enter F ');

readln (f);

if F>3 then F:=F-5

else

if F=3 then f:=f-2

else

f:=f+1;

writeln (F);

write ('continue? (y/n) ');

readln (s);

end

end.