>> 8 .

3.4.

,

3.4.2.

then, else . , .

    begin < > end

.

. . .

program n_11;
    var a, b, : real;
    var d: real;
    var x, x1, x2: real;
begin
    writeln (' ');
    write (' , b, '); readln (, b, ) ;
    d:=b*b-4*a*c;
    if d<0 then writeln (' ');
    if d=0 then
          begin
            x:=-b/2/a;
            writeln (' x=', x:9:3)
         
        end;
    if d>0 then
        begin
          x1:=(-b+sqrt(d))/2/a;
          x2:=(-b-sqrt(d))/2/a;
          writeln (' :');
          writeln ('x1=', x1:9:3);
          writeln ('x2=', x2:9:3)
        end
end.

 

 

@Mail.ru