Составьте задачу Паскаля

Question

Составьте задачу Паскаля

---

Answer 1

Begin 
var b:integer; 
begin
write('Введите b=');  readln(b);   
if b > 4 then writeln(Sqrt(b-4));   
if b <= 4 then writeln(Cos(2*b+1));  <br>end;  end.