сделать программу в PascalABC. В треугольной пирамиде построить сечение, параллельное основанию

#include<iostream>
using namespace std;
 int main(){ 
   setlocale( LC_ALL, "Russian" );   
float M,K,S; 
   int dp;     
   cout << "Какие действие вы будете выполнять:" << endl; 
   cout << "1. Сложение. " << endl; 
   cout << "2. Отнимание." << endl;   
 cout << "3. Умножение." << endl;   
   cout << "Введите число для выбора действия" << endl; 
    cin >> dp;     switch(dp) 
  {   
 case 1:   
    cout << "Число M = ";   
    cin >>M;   
    cout <<"Число K = ";     
  cin >> K;       
 S = M + K;   
     cout << "\n"<<M<<"+"<<K<<"="<<S<<endl; 
  break;
 case 2: 
       cout <<"Число M = "; 
      cin >> M;     
   cout <<"Число K = ";     
   cin >> K;   
    S = M - K;   
     cout <<"\n" << M <<"-"<<K<<"="<<S<<endl;   
     break;
  case 3:   
     cout <<"Число M = "; 
      cin >> M; 
      cout <<"Число K = "; 
      cin >> K;     
  S = M *K;   
     cout <<"\n"<<M<<"*"<<K<<"="<<S<<endl; 
       break;  
   }   
  system("pause");
return 0;
}

// PascalABC.NET 3.0, сборка 1088
const
  m=20;
var
  a:array[1..m] of integer;
  i,n,p:integer;
begin
  Randomize;
  Writeln('Элементы массива');
  for i := 1 to m do
    begin a[i]:=Random(61)-30; Write(a[i],' ') end;
  Writeln(#13#10,'Попарные произведения');
  n:=0;
  for i:=1 to m-1 do begin
    p:=a[i]*a[i+1];
    Write(p,' ');
    if p<0 then Inc(n)
    end;
  Writeln(#13#10,'Количество произведений равно ',n) 
end.

Тестовое решение:
Элементы массива
8 0 25 -17 14 -13 -5 -3 1 29 0 2 1 27 -6 -20 -19 -28 -7 -16
Попарные произведения
0 0 -425 -238 -182 65 15 -3 29 0 0 2 27 -162 120 380 532 196 112
Количество произведений равно 5