Задача. Уравнение для 5 класса

[endiny]

Привет всем! Помогите пожалуйста с задачей на паскаль.

Задача 1. "Уравнение для 5 класса"
Имя входного файла: a.in
Имя выходного файла a.out
Ограничение времени: 1 секунда на тест
Ограничение по памяти: 64 Мб
Уравнение для пятиклассников представляет собой строку длинной 5 символов. Второй символ строки является либо знаком "+" (плюс) либо "-" (минус), четвёртый символ - знак "=" (равно). Из первого третьего и пятого символов ровно два являются цифрами из диапазона от 0 до 9, и один - буквой x, обозначающей неизвестное.
Требуется написать программу, которая решит данное уравнение относительно x.

Формат входных данных:
Файл a.in состоит из одной строки, в которой записано уравнение.

Формат Выходных данных:
В выходном файле a.out вывести единственное целое число - значение x.

Примеры файлов входных и выходных данных:
a.in x+5=7
a.out 2

a.in 3-x=9
a.out -6


ПРОГРАММА ДОЛЖНА ПОЛНОСТЬЮ СОДЕРЖАТЬСЯ В ОДНОМ ФАЙЛЕ, ИСПОЛЬЗОВАНИЕ СВОИХ МОДУЛЕЙ НЕ ДОПУСКАЕТСЯ.
ПРОГРАММА ДОЛЖНА ЧИТАТЬ ВХОДНЫЕ ДАННЫЕ ТОЛЬКО ОДИН РАЗ.

Заранее спасибо

[russian-stalker]

Что не получается?

[endiny]

я не понимаю как сделать взаимодействие с файлом и что потомс этим файлом делать.
Т.е. ничего(

[Mad_Cat]

var
s:string;
p,p1:integer;
e:integer;
res:integer;
begin
s:='7-2=x';
if s[1]='x' then
begin
val(s[5],p,e);val(s[3],p1,e);
case s[2] of
'+': res:=p-p1;
'-': res:=p+p1;
end
end
else
if s[3]='x' then
begin
val(s[5],p,e);val(s[1],p1,e);
case s[2] of
'+': res:=p-p1;
'-': res:=p1-p;
end
end
else
begin
val(s[1],p,e);val(s[3],p1,e);
case s[2] of
'+': res:=p+p1;
'-': res:=p-p1;
end;
end;
writeln(s);
writeln('x=',res);
readln;
end.

файл сами прикручивайте

[endiny]

да не объясняет( я самоучка) но был бы признателен если бы вы решили эту задачу и дали исходный код на ознакомление

[Sm1Le]

Считал всю строку в переменую типа стринг
перевел в числовую переменую по АСКИ таблице
при помощи if then обнаружил где стоит X
написал математическое решение для положение 1 и номер 2.
запись и чтение файла ... уж увольте бааян из боянов ...

пиши код свой, может тогда и напишу что не так ... ну или дорога во фриланс

[_-Re@l-_]

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