Что является результатом работы программы?   *​

Вот держи! я даже сделал проверку что сторона не меньше нуля. var a,b,c,p : real; begin write('введите длинну стороны а > > > '); readln(a); write('введите длинну стороны b > > > '); readln(b); write('введите длинну стороны c > > > '); readln(c); writeln(''); if (a> 0) and (b> 0) and (c> 0) then begin p: =a+b+c; write('периметр треугольника со сторонами ',a,' , ',b,' , ',c,' равен > > > ',p); end else begin writeln('! '); write('длинна сторон должна быть больше нуля'); end; end.

Вот! вообщем там много.

label 1, 2, 3, 4, 5, 6, 7, 8, 9;

var

  i, x, m, n, k: integer;

  s: real;

  a: array of real;

begin

  7:

  writeln('выберите действие: ');

  writeln('1)сложение');

  writeln('2)вычитание');

  writeln('3)умножение');

  writeln('4)деление');

  writeln('5)возведение в степень');

  writeln('');

  8:

  write('выбор > > > ');

  readln(x);

  writeln('');

  case x of

      1:

          begin

              write('введите количество слагаемых > > > ');

              readln(m);

              writeln('');

              s : = 0;

              setlength(a, m);

              for i : = 0 to m - 1 do

              begin

                  write('введите слагаемое № ', i + 1, ' > > > ');

                  readln(a[i]);

                  s : = s + a[i];

              end;

              writeln('');

              write(a[0]);

              for i : = 1 to m - 1 do

                  write(' + ', a[i]);

              write(' = ', s);

              writeln('');

              writeln('');

              1:

              writeln('выберите действие: ');

              writeln('1)заново');

              writeln('2)выйти');

              writeln('');              

              write('выбор > > > ');

              readln(n);

              case n of

                  1:

                      begin

                          writeln('');

                          writeln('');

                          goto 7;

                      end;

                  2: exit

              else

                  begin

                      writeln('');

                      writeln('ошибка! ');

                      writeln('попробуйте снова! ');

                      writeln('');

                      goto 1;

                  end;

              end;

          end;

      2:

          begin

              write('введите количество элементов > > > ');

              readln(m);

              writeln('');

              s : = 0;

              setlength(a, m);

              write('введите уменьшаемое > > > ');

              readln(a[0]);          

              for i : = 1 to m - 1 do

              begin

                  write('введите вычитаемое № ', i, ' > > > ');

                  readln(a[i]);                  

              end;

              writeln('');

              write(a[0]);

              s : = a[0];

              for i : = 1 to m - 1 do

              begin

                  s : = s - a[i];

                  write(' - ', a[i]);

              end;

              write(' = ', s);

              writeln('');

              writeln('');

              2:

              writeln('выберите действие: ');

              writeln('1)заново');

              writeln('2)выйти');

              writeln('');              

              write('выбор > > > ');

              readln(n);

              case n of

                  1:

                      begin

                          writeln('');

                          writeln('');

                          goto 7;

                      end;

                  2: exit

              else

                  begin

                      writeln('');

                      writeln('ошибка! ');

                      writeln('попробуйте снова! ');

                      writeln('');

                      goto 2;

                  end;

              end;                            

          end;

      3:

          begin

              write('введите количество множителей > > > ');

              readln(m);

              writeln('');

              s : = 1;

              setlength(a, m);

              for i : = 0 to m - 1 do

              begin

                  write('введите множитель № ', i + 1, ' > > > ');

                  readln(a[i]);

                  s : = s * a[i];

              end;

              writeln('');

              write(a[0]);

              for i : = 1 to m - 1 do

                  write(' * ', a[i]);

              write(' = ', s);

              writeln('');

              writeln('');

              3:

              writeln('выберите действие: ');

              writeln('1)заново');

              writeln('2)выйти');

              writeln('');              

              write('выбор > > > ');

              readln(n);

              case n of

                  1:

                      begin

                          writeln('');

                          writeln('');

                          goto 7;

                      end;

                  2: exit

              else

                  begin

                      writeln('');

                      writeln('ошибка! ');

                      writeln('попробуйте снова! ');

                      writeln('');

                      goto 3;

                  end;

              end;                          

          end;

      4:

          begin

              write('введите количество элементов > > > ');

              readln(m);

              writeln('');

              s : = 0;

              setlength(a, m);

              write('введите делимое > > > ');

              readln(a[0]);          

              for i : = 1 to m - 1 do

              begin

                  9:

                  write('введите делитель № ', i, ' > > > ');

                  readln(a[i]);

                  if a[i] = 0 then

                  begin

                      writeln('делить на 0 нельзя! ');

                      goto 9;

                  end;

              end;

              writeln('');

              write(a[0]);

              s : = a[0];

              for i : = 1 to m - 1 do

              begin

                  s : = s / a[i];

                  write(' / ', a[i]);

              end;

              write(' = ', s);

              writeln('');

              writeln('');

              4:

              writeln('выберите действие: ');

              writeln('1)заново');

              writeln('2)выйти');

              writeln('');              

              write('выбор > > > ');

              readln(n);

              case n of

                  1:

                      begin

                          writeln('');

                          writeln('');

                          goto 7;

                      end;

                  2: exit

              else

                  begin

                      writeln('');

                      writeln('ошибка! ');

                      writeln('попробуйте снова! ');

                      writeln('');

                      goto 4;

                  end;

              end;        

          end;

      5:

          begin

              write('введите число которое требуется возвести в степень > > > ');

              readln(k);

              write('введите необходимую степень > > > ');

              readln(m);

              writeln('');

              s : = exp(m * ln(k));              

              writeln('');

              writeln(k, '^', m, ' = ', s);

              writeln('');

              writeln('');

              5:

              writeln('выберите действие: ');

              writeln('1)заново');

              writeln('2)выйти');

              writeln('');              

              write('выбор > > > ');

              readln(n);

              case n of

                  1:

                      begin

                          writeln('');

                          writeln('');

                          goto 7;

                      end;

                  2: exit

              else

                  begin

                      writeln('');

                      writeln('ошибка! ');

                      writeln('попробуйте снова! ');

                      writeln('');

                      goto 5;

                  end;

              end;                  

          end

  else

      begin

          writeln('');

          writeln('ошибка! ');

          writeln('попробуйте снова! ');

          writeln('');

          goto 8;

      end;

  end;  

end.