program project_420_2;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
x,y,s:real;
i,j:byte;
begin
y:=1;
s:=1;
write('X = ');
readln(x);
for i:=1 to 5 do
begin
for j:=1 to 4 do
s:=s*(i*j+1)/2*x;
y:=y*s;
end;
writeln('Y = ',y);
readln;
end.
#include <iostream>using namespace std;int main() { double x, y, s; int i, j; y = 1; s = 1; cout << "X = "; cin >> x; for (i = 1; i <= 5; i++) { for (j = 1; j <= 4; j++) s = s * (i * j + 1)/2 * x; y = y * s; } cout << "Y = " << y << endl; system("pause"); return 0;}