[lmikle]

Лучше для этого использовать входные и выходные параметры:

Код:

program Test;

procedure Calc(a, b : real; var c, d : real);
begin
  c := a*a + b*b;
  d := 2*a*b;
end;

var
  a, b, c, d : real;
begin
  Write('Введите значение a:'); ReadLn(a);
  Write('Введите значение b:'); ReadLn(b);
  Calc(a,b,c,d);
  WriteLn('Сума квадратов = ',c);
  WriteLn('Удвоенное произведение = ',d);
  ReadLn;
end.