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 строке ошибка какая?
например writeln("какой-то текст")