Разветвление в цикле.
Вариант 4
Написать программу на алгоритмическом языке PASCAL с использованием любого оператора цикла.

Ну... Как-то так)

var
  x, y: real;

begin
  x := 0.5;
  while x lt;= 25 do
  begin
    if x gt; 20 then
      y := sin(x)
    else
      if x lt;= 5 then
        y := sqr(cos(x))
      else
        y := sqrt(x);
    writeln(y(, x, ) = , y);
    x := x + 1.5;
  end;
end.