Для заданного Х вычислить значение А по формулам - Pascal ABC

Формулировка задачи:

Применив оператор безусловного перехода, для заданного Х вычислить значение А по формулам: A = Х² + 1, если Х < 0 А = 2Х, если 0 ≤ Х < 10 A = Х² – 1, если Х ≥ 10

Вот моя программа без goto

                    Листинг программы
                
 
                        
                          
                    
program qq;
var
x: integer;
a:real;
begin
writeln('Введите х');
read(x);
if x<0 then A:= sqr(x)+1;
if (x>=0) and(x<10) then
A:=2*x;
if x>=10 then A:=Sqr(x)-1;
writeln('x=',a);
end.

Решение задачи: «Для заданного Х вычислить значение А по формулам»

Листинг программы

Label 1,2,3,4;
var x: integer;
    a:real;
begin
writeln('Введите х');
readln(x);
if x<0 then goto 1
else if x<10 then goto 2
else goto 3;
1: begin
   a:=sqr(x)+1;
   goto 4;
   end;
2: begin
   a:=2*x;
   goto 4;
   end;
3: begin
   a:=Sqr(x)-1;
   goto 4;
   end;
4:writeln('A=',a);
end.

Объяснение кода листинга программы

Ввод значения переменной X.
Проверка значения X. Если X меньше нуля, то переходим к метке 1, иначе проверяем следующее условие.
Проверка значения X. Если X меньше 10, то переходим к метке 2, иначе переходим к метке 3.
Вычисление значения переменной A в зависимости от значения X.
Вывод значения переменной A на экран.