Где тут ошибка? Пожалуйста помогите. Программка на лазарус решение квадратных

Где тут ошибка? Пожалуйста помогите. Программка на лазарус решение квадратных корнейю
procedure TForm1.Button1Click(Sender: TObject);
var
a ,b,c,n,d,s :Integer;
begin
a:= StrToInt (ka.Text);
b:= StrToInt (kb.Text);
c:= StrToInt (kc.Text);
D:= b*b-4*a*c;
if Dgt;0 then n := ( (-b+scrt(b)) / (2*a)) and s := ((-b-scrt(b)) / (2*a));
if D=0 n = b / (2*a) ;
if Dlt;0 then Showmessage ('нет корней');
no.Text := IntToStr (n);
nod.Text:= IntToStr(s);
end;

Эвелина Кисилюк 2019-07-24 05:03:51

Все скрин есть

Амина Фавр 2019-07-24 05:12:05

да

Danil Almalitov 2019-07-24 05:20:57

и еще на and и s:=

Никитка 2019-07-24 05:29:20

а сейчас не ругается на ;

Сережа Лазунин 2019-07-24 05:34:58

if D>0 then n := ( (-b+scrt(b)) / (2*a)) and s := ((-b-scrt(b)) / (2*a)); где and и s:=

Руслан Непийпива 2019-07-24 05:38:24

спасибо