Делаю проект. нужна информация по теме "/цель 3d моделирования". работа не пыльная, а много

program chisla;

uses crt;

var p,c: real;

begin

      clrscr;  

      write('введите числа конец ввода 0: ');

        p: =1;

      repeat

            readln(c);

            if (c=0) then break                  else p: =p*c;    

    until (c=0);

    writeln('произведение чисел= ',p);

    readkey;

  end.

  program z;

uses crt;

var x,y,z: real;

begin

    clrscr;

    write('введите х: ');

    readln(x);

    write('введите y: ');

    readln(y);

    if (x< 0)   and (x> y) then z: =x;

    if (x< 0)    and (x< y) then z: =y;          

    if (x> =0) then z: =(x+y)/2;

    writeln('z=',z);

    readkey;

end.