Вычислить приближенно площадь фигуры, ограниченной функцией y = x 2и прямой у = 25, разбивая ось Ох на 50 частей и суммируя площади прямоугольников с основанием, равным 1/50 отрезка изменения х, и высотой, определяемой значением функций в середине основания. ФОРТРАН

Var a,b,c,n:integer;
begin
for a:=1 to 7 do
  for b:=a+1 to 8 do
    for c:=b+1 to 9 do
      begin
      n:=a*100+b*10+c;
      write(n:4)
      end;
end.

var
  i,j,n:integer;
  a:array[1..4,1..5]of real;
begin
for i:=1 to 4 do
  begin
  for j:=1 to 5 do
    begin
    a[i,j]:=random*2-1;
    write(a[i,j]:20:15);
    if a[i,j]>=0 then n:=n+1;
    end;
  writeln;
  end;
writeln('Количество неотрицательных: ',n);
end.

var
  i,j,sum:integer;
  a:array[1..3,1..4]of integer;
begin
for i:=1 to 3 do
  for j:=1 to 4 do
    readln(a[i,j]);
writeln('Массив:');
for i:=1 to 3 do
  begin
  for j:=1 to 4 do
    begin
    sum:=sum+a[i,j];
    write(a[i,j]:4);
    end;
  writeln('sum=':8,sum);
  sum:=0;
  end;
end.

#include <stdio.h>#include <time.h>
int main(void) {    int left, right, num = 5;     time_t t;

    scanf ("%d %d", &left, &right);

    if(left >= right)      {        fprintf(stderr, "min_num is greater or equal than max_num!\n");     }

    printf ("left = %d right = %d \n", left, right);    
    /* Intializes random number generator */    srand((unsigned) time(&t));
    /* Print num random numbers from left to right */     while (num > 0)     {       printf ( "%d ", left + (rand() % (right + 1 - left)) );        num--;     }
    return 0;}