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:…

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 строке ошибка какая?