Информатика

Геша

21 февраля, 21:16

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