Здравствуйте...помогите мне пожалуйста! Паскаль ,надо составить программу ...Даны 5 чисел...

Question

Здравствуйте...помогите мне пожалуйста! Паскаль ,надо составить программу ...Даны 5 чисел (2 целых,3 веществ.) Выбираются случайно(random) Рассчитать сумму целых чисел и результат в первую переменную. Вычислить разность вещ. чисел и результат в переменную вещ. числа...

Answer 1

Var   r,q,p:real;
      x,y:integer;
      
begin
  randomize();
  x:=random(-128,127);
  y:=random(-128,127);
  x:=x+y;
  writeln(x);
 
  r:=random()*random(-128,127);
  p:=random()*random(-128,127);
  q:=random()*random(-128,127);
  r:=r-p-q;
  writeln(r);
end.