Помогите пожалуйста

[Vadim7721]

Здравствуйте, помогите пожалуйста переделать программу, вместе if, else, goto, надо сделать с case, вот программа

Program cwadr (input, output);
label 20;
var a, b, c, d, e, d1, x, x1, x2 : real;
begin
writeln ('введите a, b, c'); readln (a, b, c);
if a=0 then begin
 if b=0 then begin
 if c=0 then begin
 writeln ('x-любое число');
 goto 20; 
 end;
 writeln ('решений нет');
 goto 20; 
 end;
 writeln ('корень один x= ', x);
 goto 20; 
end;
d:= b*b-4*a*c; 
e:= 2*a;
if d=0 then begin
 writeln ('корни кратные х1 = х2 = ', -b/e);
 goto 20; 
end;
d1:= sqrt (abs (d));
if d<0 then begin
 writeln ('корни комплексно-сопряженные');
 writeln ('x1 = ', -b/e, ' -i* ', d1/e);
 writeln ('x2 = ', -b/e, ' +i* ', d1/e);
 goto 20; 
 end;
writeln ('корни действительные');
writeln ('x2 = ', ( - b+d1)/e );
writeln ('x1 = ', ( - b+d1)/e );
20:; 
end.

[Aranea tela telam]

Утро понедельника плохо действует на человека) так что пока лучше этого не придумал если не пойдет то потом напишу по лучше

var a,b,c,d,x1,x2:Real;
begin
readln(a,b,c);
d:=(b*b)-(4*a*c);
case Round(d) of
-32768..-1: Writeln('noy korn!');
0: begin x1:=(-b)/(2*a); Writeln('x1=',x1); end;
1..32768:
begin
d:=Sqrt(d);
b:=-b;
x1:=(b-d)/(2*a);
x2:=(b+d)/(2*a);
Writeln('x1=',x1,'x2=',x2);
end;
end;
Readln;
end;

[Vadim7721]

Aranea tela telam, Спасибо большое, все работает, только ещё нужно было после Begin write('введите a, b, c'); и в конце End с ". " , а не " ; ", спасибо большое

[Aranea tela telam]

Сообщение от Vadim7721

Aranea tela telam, Спасибо большое, все работает, только ещё нужно было после Begin write('введите a, b, c'); и в конце End с ". " , а не " ; ", спасибо большое

Писал просто в блокноте не проверял)