Программу которая рисует конус (значение радиуса и высоты вводятся с клавиатурф )

#include<iostream>

using namespace std;

int main()

{

int l[15];

double min=0,max=0;

for(int i=0;i<15;i++)

{

  cin>>l[i];

  if(l[i]>0&&l[i]<min&&min!=0)

      min=l[i];

      if(min==0&&l[i]>0)

          min=l[i];

  if(l[i]<0&&l[i]>max&&max!=0)

      max=l[i];

      if(max==0&&l[i]<0)

       max=l[i];

}

sort(l,l+15);

cout<<min<<" "<<max<<endl;

cout<<min/max<<endl;

for(int i=14;i>=0;i--)

  cout<<l[i]<<" ";

  return 0;

}

program z1;//заголовок - название программы

var a,b,c:real;//описание переменных a,b,c вещественного типа

begin//начало тела программы

write ('a = ');//вывод на экран сообщения: а = для запроса у пользователя переменной а

readln (a);// ввод переменной a пользователем

write ('b = ');//вывод на экран сообщения: b = для запроса у пользователя переменной b

readln (b);// ввод переменной b пользователем

write ('c = ');//вывод на экран сообщения: b = для запроса у пользователя переменной c

readln (c);// ввод переменной c пользователем

if (a<=0) or (b<=0) or (c<=0) then write ('Такого треугольника не существует')//оператор ветвления 1 часть если условие верно, то программа выведет сообщение: Такого треугольника не существует

else write ('P = ',a+b+c)//оператор ветвления 2 часть если условие НЕ верно, то программа выведет периметр треугольника сообщением: Р = число

end.//конец тела программы