Даны два действительных числа x и y. Составить программу вычисления их суммы и произведения

program zz1;

var x, y, r, s:real; / / задаем переменные не целого типа

begin

write ('введите первое число '); / / вводим с клавиатуры первое число

read (x);

write ('введите второе число '); / / вводим с клавиатуры второе число

read (y);

r:=x + y; / / вычисляем сумму двух чисел по формуле

writeln (' сумма двух чисел = ', r:5:2); / / выводим ответ в формате пять знаков для всего числа и два знака после точки

s:=x * y; / / вычисляем произведение двух чисел по формуле

write (' произведение двух чисел = ', s:5:2); / / выводим ответ в формате пять знаков для всего числа и два знака после точки

end.