Составить программу суммирования четырехзначных трехзначных случайных чисел вывод суммы

Var a,b,c: Integer;
begin
a:=random(9999-1000+1)+1000;
b:=random(999-100+1)+100;
writeln('a=',a,', b=',b);
c:=a+b;
writeln(c);
end.