Var a:integer;
<span>begin </span>
<span>writeln('Введите сторону куба'); </span>
<span>readln(a); </span>
<span>writeln('Объем куба с ребром ',a,' равен — ',a*a*a); </span>
<span>writeln('Площадь поверхности куба равна — ', 6*a*a); </span>
<span>end. </span>
С++
#include<iostream>
using namespace std;
main()
{
int a, s;
cin >> a;
for(int i = 15; i <= a; i++)
s += i;
cout << s;
}
Python
a = int(input())
s = 0
for i in range(15, a + 1):
s += i
print(s)
Pascal
var a, s, i: integer;
begin
read(a);
for i := 15 to a do s += i;
write(s);
end.
13 чисел я нашёл. Ну подсчитай сам