Если правильно поняла задачу, на паскале это выглядит так:
var n,b,i,a,c:integer;
begin
writeln('input n'); readln(n);
writeln('input a'); readln(a);
c:=a;
for i:=1 to n do
begin
writeln('input b',i);
readln(b);
c:=c-b;
end;
writeln('c=',c);
end.
Алгоритм и блок-схема по имеющейся программе делаются элементарно.