Program dvachisla;
Var a1, a2, s, p: real;
Begin
  Writeln('Введите два числа:');
  Write('Первое число = ');
  Read(a1);
  Write('Второе число = ');
  Read(a2);
  s:=a1+a2;
  p:=a1*a2;
  Writeln('Сумма чисел:', ' ', s, '. ', 'Произведение чисел:', ' ', p);
  Readln;
End.