7. Напишите текст программы (любой язык программирования) для решения следующей задачи на ПЭВМ: С клавиатуры вводится строка типа aХ=b (например: 3Х=6 или 0.2Х=-89). Определить Х.

//Pascal ABC.NET 3.1 сборка 1256

Var
 s:string;
 a,b:real;
begin
readln(s);
a:=strtofloat(copy(s,1,pos(X,s)-1));
b:=strtofloat(copy(s,pos(=,s)+1,length(s)-pos(=,s)));
if (a=0) and (b=0) then
 begin
  writeln(X-любое действительное число);
  exit;
 end
 else
if a=0 then
  begin
  writeln(Нет корней);
  exit;
 end;
writeln(b/a);
end.

Пример ввода:
-0.1X=10
Пример вывода:
-100