Program program1;
var
x, y: real;
begin
writeln('Введите X: ');
readln(x);
y := x * 2 + 3;
writeln('y = ', y);
end.
Uses Crt;
const
n=40;
var
i,s:longint;
begin
s:=0;
for i:=1 to n do
s:=s+i*i*i;
ClrScr;
Writeln(s);
ReadKey
end.
<u>Результат</u>
672400
Я думаю, что это может быть слово "Род"