ПОМОГИТЕ ПОЖАЛУЙСТА ИСПРАВИТЬ ЗДЕСЬ ОШИБКИ
program lr28;
var a,x,z,b,c: integer;
d:real;
begin
writeln(' № equation');
readln(a);
writeln('variables');
readln(x,z,a,b,c);
case a of
d:((x-z)/(x+z));
writeln(d):
d:= -b/(2*a);
writeln(d):
d:= ((a*a*a)/abs(x-z));
writeln(d):
d:(sqrt(abs(b*b-4*a*c)));
writeln(d):
else writeln('error');
end;
end.

program lr28;var k,a,b,c,x,z: integer;d:real;beginwrite('№ equation: ');readln(k);writeln('variables:');readln(x,z,a,b,c);case k of 1: begin d:=(x-z)/(x+z); writeln(d); end;2: begin d:=-b/(2*a); writeln(d); end;3: begin d:=(a*a*a)/abs(x-z); writeln(d); end;4: begin d:=sqrt(abs(b*b-4*a*c)); writeln(d); end;else writeln('error');end;end.