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

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

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.