Вычислить сколько процентов от А+В-С приходится на число А — Pascal(Паскаль)

var
a,b,c:integer;
procent:real;
begin
 a:=10;
 b:=23;
 c:=12;
 procent:=round(a/(a+b-c)*100);
 writeln(procent);
end.