Question

Составьте программу вычисления выражения Y=3X+5X2 , введите с клавиатуры X. Выведите значение Х и Y.

Answer 1

program test;
var x, y: real;
begin
  write('Enter x: ');
  readln(x);
  y := 3 * x + 5 * (x * x);
  writeln('x = ', x:0:0);
  writeln('y = ', y:0:0);
  readln;
end.