Такой будет программа:
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.
Поочередно удаляем повторяющиеся буквы
НАВВАНУККТЦЙЧТТЧМЦЙЙЦМЙЦКОБПРРПБНГГНХХНЪЪОЬУУФФЙЙЬЧИИЧСНШЩЗЗЩЖЭЭЖШНГККГ
НААНУТЦЙЧЧМЦЦМЙЦКОБППБНННОЬЬЧЧСНШЩЩЖЖШНГГ
ННУТЦЙММЙЦКОББНОСНШШН
УТЦЙЙЦКОНОСНН
УТЦЦКОНОС
УТКОНОС
// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
begin
var a:=1.Step(2).Take(10).ToArray; a.Println;
var b:=ArrRandom(10,5,15); b.Println
end.
<u><em>Тестовое решение</em></u>
1 3 5 7 9 11 13 15 17 19
14 5 13 6 10 9 15 9 14 5
После do точку с запятой ставить не надо
uses crt;
var
i, j: integer;
begin
randomize;
for i := 1 to 20 do
begin
writeln(i);
textcolor(green);
for j := 1 to 20 do
write(random(50000));
textcolor(yellow);
for j := 1 to 20 do
write(random(50000));
textcolor(red);
for j := 1 to 20 do
write(random(50000));
end;
end.