PascalABC.NET 3.7.1
Объяснение:
var a,b,c,n:integer;
begin
writeln('Write n');
readln(n);
a:=n div 100;
b:=n mod 100 div 10;
c:=n mod 10;
writeln(2*a+b-c);
end.
