Программа для вычисления функций

[kirikmus]

Здравствуйте! Помоги составить программу для вычисления функций. Функции на фото. Спасибо

[gromdel]

Как думаете в правильном направлении думаю?

var 
a,b,c,d,x,y,x1,x2:real;
begin
readln(a,b,c);
d:=sqr(b)-4*a*c;
if d<0 then exit ELSE
if d>0 then 
x1:=(-b+sqrt(d))/(2*a);
x2:=(-b-sqrt(d))/(2*a);
if x1<x2 then x:=x1 else x:=x2;
if x<0 then
  y:=x+(cos(x))/(sqr(x)-1) else
  y:=((sqr(x)+1)*cos(x))/sqr(x);
writeln('a = ', a);
writeln('b = ', b); 
writeln('c = ', c);
writeln('x = ', x:4:2);
writeln('y = ', y:4:2);
readln;
end.

[digitalis]

1. А x1 := x2 := в скобки begin end кто брать будет ?
2. А при d=0 ?
3. Тех, кто не форматирует текст проги, бьют розгами по пятой точке.