Pascal ABC.

var   
   i,a,raz:integer;
begin   
   for i:=1 to 10 do begin         
      a:=random(19)+1;         
      writeln(a);         
      raz:=raz-a;     
   end;     
   writeln('Разность: ',raz);
end.

PascalABC.NET
Версия 3.3, сборка 1633 (10.02.2018)

var
 a,b,o: integer;
begin
 for a:=1 to 10 do begin
 b:=random(19)+1;
 writeln(b);
 otvet:=otvet-b;
 end;
 writeln(otvet);
end.