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

Question

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

Answer 1

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.