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