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.