Всем привет, мой предмет: Алгоритмы, структуры данных и программирование , нужно выполнить это задание(прикрепляю фотографию).

Вот код примера как это должно выглядеть:
program helpplss;
var
a, b, c, k, r, x, y: real;
begin
write('y, k, x =? ');
readln(y, k, x);
if y <> 0 then a := sqr(sin((k - 5) / y))
else a := 0;
b := x + y;
c := k - y;
if (a <> 0) and (b >= 0) and (c >= 0) then
begin
if b > 0 then b := exp(ln(b) / 6);
b := b + exp(4 * k + 1);
c := 5.6e8 * x + sqrt(c);
r := (c - b) / a;
writeln('r = ', r)
end
else writeln('Значение выражения не определено')
end.

, Я буду очень благодарен вам.

//PascalABC.NET версия 3.2, сборка 1389

//Если программа не запускается, то обновите версию

uses System.Linq;

begin

   writeln('III');

   var a := ReadArrInteger('Документы', ReadInteger('n=')).ToList;

   writeln;

   

   while a.Any() do

   begin

       write(a[0], ' ');

       a.RemoveAt(0);

       if not a.Any then break;

       

       write(a.Last, ' ');

       a.RemoveAt(a.Count - 1);

       if not a.Any then break;

       

       var n := 0;

       if a.Count > 1 then n := a.Count div 2 - 1;

       write(a[n], ' ');

       a.RemoveAt(n);

   end;

end.

Объяснение:

Var  i: integer;  begin
for i:=1 to 9 do  write(i);  writeln(10);
for i:=0 to 8 do  write(i);  writeln(9);
for i:=1 to 2 do  write('0');  for i:=1 to 7 do  write(i);  writeln('8');
for i:=1 to 3 do  write('0');  for i:=1 to 6 do  write(i);  writeln('7');
for i:=1 to 4 do  write('0');  for i:=1 to 5 do  write(i);  writeln('6');
for i:=1 to 5 do  write('0');  for i:=1 to 4 do  write(i);  writeln(5);
for i:=1 to 6 do  write('0');  for i:=1 to 3 do   write(i);  writeln('4');
for i:=1 to 7 do  write('0');  for i:=1 to 2 do  write(i);  writeln(3);
for i:=1 to 8 do  write('0');  write('1');writeln('2');
for i:=1 to 9 do  write('0');  writeln(1);  
end.

Как сделать более кратко не знаю. Но эта программа работает.