Program Nya;
Uses Crt;
label 1,2;
Var
otv1,otv2,otv3:ShortInt;
otv11,otv21,otv31:ShortInt;
D,x1,x2,x:Real;
a,b,c:Integer;
ac2,ac:Real;
begin
clrscr;
writeln('Zdravstvyite');
writeln('Vas privetstvyet programma dlya reweniu prostix zadach.');
writeln('Chtobi ystanovit kakogo roda zadachy vam trebyetsya rewit, vam bydyt zadani voprosi.');
writeln('Otveti prinimautsya v forme "1" - da, "0" - net (bez kavichek}');
writeln;
writeln('1) Vi xotite rewit yravnenie?');
write('->');
read(otv1);
IF otv1=1 then begin
                writeln('Programa imeet vozmojnost rewat prostie yravneniyas pomowu diskriminanta.');
                writeln('Vvedite 3 chisl, trebyemie dlya naxojdeniya D, bez kyba (a, b, c)');
                read(a,b,c);
                writeln('V etom yravnenii kvadrat raznosti?');
                read(otv11);
                IF otv11=1 then begin
                                 ac2:=2*a*c;
                                 ac:=ac2/b;
                                 writeln(a,'-',b,'*',ac,'+',c);
                                 D:=b*b-4*a*c;
                                 Goto 1;
                                end
                           Else begin
                                 writeln(a,'a^2+',b,'*',ac,'+',c,'b');
                                 d:=b*b-4*a*c;
                                 Goto 1;
                                end;
                1:IF D>0 Then begin
                               x1:=(-b+D)/(2*a);
                               x2:=(-b-D)/(2*a);
                               writeln('x1=',x1);
                               writeln('x2=',x2);
                              end
                         Else Begin
                               IF D<0 Then Writeln('Kornei net')
                                      Else begin
                                            x:=-b/2*a;
                                            writeln('D=0, zdes odin koren');
                                            writeln('x=',x);
                                           end;
                              end;
                end;
end.