Program gg;var a,b,c,x1,x2,D:real;beginwriteln  (ââåäèòå êîýôôèöèåíòû a,b,c);read (2,5,25);D:b*b-4*a*cif D больше 0 then begin x1:=(-5-sgrt(D))/2*a;                  x2:= (-5+sgrt(D))/2*a;                  wtiteln (x1;x2);end  ...

Program gg;var a,b,c,x1,x2,D:real;beginwriteln  (ââåäèòå êîýôôèöèåíòû a,b,c);read (2,5,25);D:b*b-4*a*cif D>0 then begin x1:=(-5-sgrt(D))/2*a;                  x2:= (-5+sgrt(D))/2*a;                  wtiteln (x1;x2);end        else if D=0 then begin x1:=(-b)/2*a                   writeln (x1);end        else write (ðåøåíèé íåò)        end. это задача на Паскале,нужно скопируйте и вставте её)в 4 строке ошибка какая?