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

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

program condition;var f: integer;var s: char;begins:=\'y\';while s=\'y\' do beginwrite(\'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);endend.