Написать программу, которая по введенному значению аргумента вычисляет значение функции заданной в виде графика. Параметр R вводится с клавиатуры — Pascal(Паскаль)

uses crt;
var xn,xk,h,R,x,y:real;
begin
clrscr;
R:=3;
xn:=-7;
xk:=10;
h:=1;
x:=xn;
while x<=xk do
 begin
  if abs(x)<=R then y:=sqrt(R*R-x*x){внутри круга}
  else if (x<=-5)then y:=-3{левее -5}
  else if (x>=-5)and(x<=-R)then y:=1.5*x+4.5{между -5 и -3}
  else if x>=8 then y:=3{правее +8}
  {5}else if (x>=R)and(x<=8)then y:=0.6*x-1.8;{между +3 и +8}
  writeln('x=',x:4:1,'   y=',y:4:1);
  x:=x+h;
 end;
readln
end.