Какие команды вписать в скрэтч что бы нарисовать ракету?​

Program arrayMinValueSwapFirst;var  numbers: array [1..10] of integer;  maxValIndex: integer;begin  write('Исходный массив: ');  for var i: integer := 1 to 10 do  begin    numbers[i] := random(11);    write(numbers[i]);    if i < 10 then      write(', ');  end;  var minVal: integer := -1; // Сюда записываем рекорд по значению  for var i: integer := 1 to 10 do    if (numbers[i] > minVal) then    begin      minVal := numbers[i];      maxValIndex := i;    end;  writeln();  writeln('Индекс максимального: ', maxValIndex);  var buf: integer := numbers[1];  numbers[1] := minVal;  numbers[maxValIndex] := buf;  write('Результат      : ');  for var i: integer := 1 to 10 do  begin    write(numbers[i]);    if i < 10 then      write(', ');  end;end.

// PascalABC.NET 3.3, сборка 1573 от 04.11.2017
// Внимание! Если программа не работает, обновите версию!

a)

begin
  var (a,b):=ReadReal2('Введите через пробел два числа:');
  if a>b then Writeln('Первое число больше второго')
  else
    if b>a then Writeln('Второе число больше первого')
    else Writeln('Числа равны')
end.

b)

begin
  var (a,b):=ReadReal2('Введите через пробел два числа:');
  if a<b then Writeln('Первое число меньше второго')
  else
    if b<a then Writeln('Второе число меньше первого')
    else Writeln('Числа равны')
end.