//PascalABC (версия 3.4.2, сборка 1889 от 04.12.2018)
var
a, b, sum, mul : real;
begin
WriteLn;
WriteLn('Введите два числа.');
Write('-> '); ReadLn(a);
Write('-> '); ReadLn(b);
Sum := a + b;
Mul := a * b;
WriteLn('Сумма: ', Sum);
WriteLn('Произведение: ', Mul)
end.