Нарисовать кораблик в программе кумир и напишите шаги действия . заранее .

Программе кумир?
Может paint?

Const n=10;
var
a: array[1..n] of integer;
i, km, kf, tm, tf: integer;
sm, sf: real;
begin
for i:=1 to n do
  readln(a[i]);  //считываем массив
km:=0; kf:=0; tm:=0; tf:=0;
for i:=1 to n do
//находим суммарный рост мальчиков
//и девочек, и количество
  if a[i] < 0 then
  begin
    km:=km+1;
    tm:=tm + abs(a[i]);
  end
  else
  begin
    kf:=kf+1;
    tf:=tf + a[i];
  end;
//находим среднее арифметическое
if km > 0 then
sm:=tm/km;
if kf > 0 then
sf:=tf/kf;
writeln('Средний рост мальчиков: ', sm);
writeln('Средний рост девочек: ', sf);
end.

Using System;
using System.Linq;
using System.Collections;
using System.Collections.Generic;

// задачи на c# курсовая работа дан целочисленный массив размера n вывести все содержащиеся четные числа в порядке убывания

namespace NoNamespace {
    internal class Program {

        private static void Main() {
            Console.WriteLine("Введите размерность массива");
            var n = Convert.ToInt32(Console.ReadLine());
            var mas = new int[n];
            var r = new Random();

            Console.WriteLine();
            for(var i = 0; i < mas.Length; i++){
                mas[i] = r.Next(-50, 50);
                Console.Write(mas[i] + " ");
            }
            Console.WriteLine();

            var res = GetEvenDesc(mas);
            for(var i = 0; i < res.Length; i++){
                Console.Write(res[i] + " ");
            }
            Console.WriteLine();
        }

        private static int[] GetEvenDesc(int[] mas) {
            Array.Sort(mas, (x, y) => -x.CompareTo(y));
            var evens = new List<int>();
            foreach (var element in mas.Where(x => x % 2 == 0)){
                evens.Add(element);
            }
            return evens.ToArray();
        }
    }
}