var a,b,r:integer;
begin
writeln('Введите a,b');
readln(a,b);
r:=a-b-10;
writeln('r:',r);
end.
В Вашем случае: a=19, b=5, соответственно, r=4
