Создайте программу в Паскаль, для того, чтобы это узнать( и блок-схему).

Такой будет программа:

var
  s, r, t, x, y: real;

begin
  y:=1;
  x := 5 + abs(y);
  s := (x / 100000) * y * y * y * y;
  r := (y + 1000) / sqrt(x);
  t := 3 * x + y;
  writeln(S= , s);
  writeln(R= , r);
  writeln(T= , t);
  if (s lt; r) and (r lt; t) then writeln(Наименьшее - S) else if (r lt; s) and (r lt; t) then writeln(Наименьшее - R) else writeln(Наименьшее - T);
end.