Составить программу , где нужно ввести две цифры и вывести полусумму

Var a,b: real; begin; readln(a,b); writeln((a=b)/2); end.

Var  n, a, s: real;   i: integer; label 1, 2, 3, 4; begin  1:   writeln('1)периметр квадрата');   writeln('2)площадь равностороннего треугольника'); write('ваш выбор > > > ');   read(n);   writeln('===========================');   if n = 1 then   begin    2:   write('введите площадь кварата > > > ');   read(s);   if s < 0 then    begin    writeln('некорректный ввод');   writeln('===========================');   goto 2;   end;   a : = sqrt(s) * 4;   writeln('===========================');   writeln('периметр квадрата > > > ', a);     goto 4;   end  else  if n = 2 then  begin    3:   write('введите периметр равностороннего треугольника > > > ');   read(a);   if a < 0 then    begin    writeln('некорректный ввод');     writeln('===========================');   goto 3;   end;   s : = (sqrt(3) / 4) * sqr(a/3);   writeln('===========================');     writeln('площадь равностороннего треугольника > > > ', s);   goto 4;   end  else  begin    writeln('некорректный ввод');     writeln('===========================');     goto 1;   end;   4:   writeln('===========================');   writeln('1)заного');   writeln('2)выйти');   write('ваш выбор > > > ');   read(n);   writeln('==========================='); if n = 1 then    goto 1 ; else    exit; end.