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