Нахождение суммы элемента массива.

// PascalABC.NET 3.0, сборка 1164 от 11.02.2016
function gcd(a,b:integer):integer;
// Нахождение НОД
var
  i: longint;
begin
  while b <> 0 do begin
    a := a mod b;
    i := b; b := a; a := i
    end;
  Result:=a
end;

begin
  var a:=ReadInteger('a=');
  var b:=ReadInteger('b=');
  var nod:=gcd(a,b);
  if nod>1 then
    WritelnFormat('Дробь сократима: {0}/{1}={2}/{3}',
    a,b,a div nod,b div nod)
  else WritelnFormat('Дробь {0}/{1} несократима',a,b)
end.

Тестовое решение:
a= 23541
b= 335160
Дробь сократима: 23541/335160=59/840

#include <math.h>

#include <cstdlib>
#include <iostream>

 

using namespace std;

 

 

 

int main()

{

 float x1,x2,x3,y1,y2,y3;

 cout<<"введите кординаты первой точки"<<endl;

 cin>>x1;

 cin>>y1;

 cout<<"введите кординаты второй точки"<<endl;

 cin>>x2;

 cin>>y2;

 cout<<"введите кординаты третьей точки"<<endl;

 cin>>x3;

 cin>>y3;

 float ax=x1-x2,ay=y1-y2,bx=x2-x3,by=y2-y3,cx=x3-x1,cy=y3-y1;

 float a=sqrt(ax*ax+ay*ay);

 float b=sqrt(bx*bx+by*by);

 float c=sqrt(cx*cx+cy*cy);

 float S,P,p;

 P=a+b+c;

 p=P/2;

 S=sqrt(p*(p-a)*(p-b)*(p-c));

 cout<<"Площадь равна "<<S<<" Периметр равен "<<P<<endl;

 system("PAUSE");

 return 0 ;

}