Даны 3 числа a,b,c необходимо найти на сколько a больше b, к этой разнице прибавить c

 Pascal
Если просто то :
 
 var   
     a,b,c,d : integer;    
   begin 
readln (a,b,c); 
d := a-b; 
writeln (d); 
d := d + c; 
writeln (d); 
   end.