program formula;
BEGIN
var z, x, y : real;
Write ('Введите x: ');
ReadLn (x);
Write ('Введите y: ');
ReadLn (y);
z := 2*x*x*x + y*y + 5;
WriteLn ('x = ', x, '; y = ', y);
WriteLn ('z = 2*x^3 + y^2 + 5 = ', z);
{Здесь может какую-нибудь задержку нужно поставить}
END.
{если не правильно, извиняюсь, давно на Pascal'е уже не писал...
}