//Активация Windows?)
var
x, y, maxy: real;
a, b: integer;
begin
read(a, b);
x := a;
writeln(' x', ' ', ' y');
writeln('----------------');
while x <= b do<br> begin
y := (3 * sqr(x) + x - 4);
if(x = a) then maxy := y
else if(maxy < y) then maxy := y;
writeln(x:1:1, ' ', y:1:2);
x := x + 0.5;
end;
writeln;
write('Наибольшее значение функции равно ', maxy);
end.