оператор присваивания в delphi

[polnyi_novichek]

только начал учится программить, пытался сделать задачу в delphi но не получается, задача : Найти x из пропорции a+b/x=b-c/a+c
помогите с ней, заранее благодарен

[artemavd]

х:=((a+b)*(a+c))/(b-c)

[polnyi_novichek]

сам оператор записан у меня правильно у меня при попытке запустить задачу

program zadacha1;

{$APPTYPE CONSOLE}
var
a,b,c,x:integer;
begin
  writeln('vvedite pervoe chislo');
  readln(a);
  writeln('vvedite vtoroe chislo');
  readln(b);
  writeln('vvedite tretie chislo');
  readln(c);
  x:=((a+b)*(a+c))/(b-c);

end.

выявляется ошибка: incompatible types: 'integer' and 'extended'. и в чем она заключается и как исправить я не могу понять((

У нас принято оформлять код специальным тэгом - при помощи кнопочки "#".
Только...
И не значком #.
И не РНР-кодом.
И не значком цитаты.
И не собственными "ручками".
Рекомендую. Помимо общих правил форума есть и дополнения к ним в каждом разделе...
Модератор

[artemavd]

Попробуйте использовать не integer, а real. Вы ж с дробями работает? Следовательно будут переменные вещественного типа, а это и есть real. Мне кажется Вы еще забыли это:

write(x);

. Вообщем, вот рабочий код:

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
a,b,c,x:real;
begin
 writeln('vvedite pervoe chislo');
 readln(a);
 writeln('vvedite vtoroe chislo');
 readln(b);
 writeln('vvedite tretie chislo');
 readln(c);
 x:=((a+b)*(a+c))/(b-c);
 write(Trunc(x));
sleep(5000);
end.

end.

[polnyi_novichek]

cпасибо большое