Ответ:

См. объяснение

Объяснение:

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.