19.Вычислить наибольшее и наименьшее значение функции y=3x^2 +x– 4, если на заданном...

19.
Program zadacha;
var
a,b,y,mi,ma:real;
begin
read(a,b);
ma:=3*a*a+a-4;
mi:=3*b*b+b-4;
while a<=b do begin <br>   y:=3*a*a+a-4;
  a:=a+0.1;
  if y >= ma then ma := y;
  if y <= mi then mi := y; <br> end;
writeln(mi:10:2);
writeln(ma:10:2);
end.

простые числа:
Program zadacha;
var
n,i,j,k:integer;
begin
read(n);
for i:=2 to n do begin
k:=0;
for j:=1 to i do begin
if i mod j = 0 then k:=k+1;
end;
if k = 2 then writeln(i);
end;
end.

19.Вычислить наибольшее и наименьшее значение функции y=3x^2 +x– 4, если ** заданном...