Решить в паскале: составить таблицу значений функции у=ch x -x^4 на отрезке от -2 до 2 с шагом 0.25

№1
var a, b, c, i:integer;   
y, x :real;
begin
x:=-2;
while x<>2 do 
 begin 
 writeln (x, ' ', (exp(x) + exp(-x))/2-x*x*x*x); 
 x:=x+0.25; 
 end;
end.
Первый номер, чтобы не было нарушения.
№2
var a, b, c, i:integer;    
y, x :real;
begin
x:=0;
while x<>4 do 
 begin 
 writeln (x, ' ', sqrt(x*x+5*x+3)); 
 x:=x+0.25; 
 end;
end.

P.S. Надеюсь на благодарность и лучший ответ.