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

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

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 < r) and (r < t) then writeln('Наименьшее - S') else if (r < s) and (r < t) then writeln('Наименьшее - R') else writeln('Наименьшее - T');
end.