makentikz 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   
      y:=3*a*a+a-4;   
      a:=a+0.1;   
      if y >= ma then ma := y;   
      if y <= mi then mi := y; 
   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.