Знаю только для примеров и уравнений называется PhotoMath
Смотри, дружок, это делается вот так вот.
1) 3072
2) 13
Var x,y,s: integer;
begin
readln(x,y);
s:=35*x+60*y;
writeln(s)
<span>end.</span>
Program zad1;
Var
x,B1,B2,B3,B4,B5,y:real;
begin
writeln('Введите X');
readln(x);
B1:=x+1;
B2:= 1/B1;
B3:= B2-1;
B4:= B2+1;
B5:= B3/B4;
y:= B5-1;
writeln('Ответ: ',y:6:2);
end.