Уравнение для пятиклассников представляет собой строку длиной 5 символов. второй символ строки является либо знаком '+' (плюс) либо '-' (минус), четвёртый символ - знак '=' (равно). из первого, третьего и пятого символов ровно два являются цифрами из диапазона от 0 до 9, и один - буквой x, обозначающей неизвестное.

Var       s: string;       a, b: integer; begin       readln(s);       if s[1] = 'x' then begin               a : = strtoint(s[3]);               b : = strtoint(s[5]);               if s[2] = '-' then a : = -a;               writeln(b - a);       end       else if s[3] = 'x' then begin               a : = strtoint(s[1]);               b : = strtoint(s[5]);               if s[2] = '-' then begin                       a : = -a;                       b : = -b;               end;               writeln(b - a);       end       else if s[5] = 'x' then begin               a : = strtoint(s[1]);               b : = strtoint(s[3]);               if s[2] = '-' then                       b : = -b;               writeln(a + b);       end end. учтите что никакой защиты от дурака или неверного ввода

теперь не плагиат

program pr; var c: integer; beginwriteln('введите число с'); readln(c); writeln('остаток от целочисленного деления числа ',c,' на 10 в квадрате равен ',sqr(c mod 10)); end.