Даны натуральные числа от 1 до 50. найти сумму тех из них, которые делятся на 5 или на 7.паскаль !

Program sadadasf;
var i,k: integer;
begin
k:=0;
For i:=1 to 50 do
If (i mod 5=0) or (i mod 7=0) then k:=k+i;
Writeln('Сумма этих чисел: ',k);
end.

Представим, что мы сняли всю землю с холмов до нулевого уровня в пределах полосы шириной 1 метр, а потом засыпали её обратно так, чтобы уровень стал горизонтальным на высоте h.

Посчитаем объем земли, который был снят.
Всю землю можно разделить на фигуры толщиной 1 метр, в основании которых трапеции с высотой 1 м и основаниями - двумя соседними измерениями высоты. Тогда объем каждой фигуры V(i) = (h(i) + h(i + 1)) / 2, полный объем V = V(1) + V(2) + ... + V(N - 1) = h(1)/2 + (h(2) + h(3) + ... + h(N - 2)) + h(N - 1)/2

Объем земли, который использовался для засыпания, равен V = h (N - 1).

Эти объемы, конечно, равны, тогда h = (h(1)/2 + h(N - 1)/2 + (h(2) + h(3) + ... + h(N - 2))/(N - 1)

PascalABC.NET 3.2.1518:
begin
  var N := ReadInteger;
  print(ReadSeqInteger(N)
           .Select((x, i) -> (i = 0) or (i = N - 1) ? x/2 : x)
           .Sum / (N - 1))
end.

С вводом-выводом в файл:
begin
  var f := OpenRead('INPUT.TXT');
  var N := f.ReadInteger;
  var S := f.ReadInteger / 2;
  for var i := 2 to N - 1 do
    S += f.ReadInteger;
  S += f.ReadInteger / 2;
  print(S / (N - 1))
end.

#include <iostream>
using namespace std;
int main()
{
//объявление переменных
int a,b,c,min,max;
//Вводим числа
cout<<"Введите а "<<endl;
cin>>a;
cout<<"Введите b"<<endl;
cin>>b;
cout<<"Введите c"<<endl;
cin>>c;
//Ищем максимальное число   
     if (a>=b && a>=c)    
     {max=a;}     
     else    
     {if (b>=a && a>=c)    
     {max=b;}   
     else  max=c;}
//Ищем минимальное число
     if (a<=b && a<=c)    
     {min=a;}     
     else    
     {if (b<=a && a<=c)    
     {min=b;}   
     else  min=c;}
//Вывод переменных
cout<<"Максимальное число = "<<max<<endl;
cout<<"Минимальное  число = "<<min<<endl;   
system("pause");
return 0;}