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

Вывод суммы

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