Помогите пожалуйста написать программку на Паскале по функции z=a2-b/a-1 ВЕТВЛЕНИЕМ!!!!!! если

Не сообразил с a2, если не квадрат, то позже исправлю

program func;
 
var
  a, b: integer;
  z: real;
 
begin
  writeln('Введите a и b');
  readln(a,b);
  if a=0 then
    writeln('Решения нет')
  else if alt;gt;0 then
    begin
    z:=((Sqr(a)-b)/(a-1));
    writeln('z=',z);
    end;
end.