Составить программу для вычисления значения функции y=2x-4/3x^2+11

program zz1;

var x:integer; / / задаем переменную целого типа

y:real; / / задаем переменную не целого типа для ответа

begin

write ('введите заданное число х '); / / вводим с клавиатуры исходное число х

read (x);

y:=2 * x - 4/3 * x * x + 11; / / вычисляем результат по заданному выражению

write (' результат вычисления заданного выражения = ', y:5:2); / / выводим ответ, пять знаков для всего числа и два знака после точки

end.