var a: real;
begin
readln(a);
writeln((2 * a * a * a + 8)/(3 * a));
end.
81.липы,осины,берёзы.79.2 игрок.80.2кончая,3.коник,4.там просто стрелочка.1слово я не помню.
#include <iostream>
using namespace std;
int maks(int n)
{
int max=0,a;
for(int i=0;i<n;i++)
{
cin >> a;
if( a > max || max == 0) max = a;
}
return max;
}
int main()
{
cout << maks(4)-maks(2)+maks(5);
return 0;
}
// Поиск максимума выполнен методом инициализации изначального максимума)
===== PascalABc.NET ======
begin
for var i := 0 to 10 do
Writeln(i:2, 3*i*i-4*i+2:6)
end.