даны два действительных числа а и б. Получить их сумму, разность и произведение. Написать программу так, чтобы результат выводился полным ответом (например, 4*5=20, если были введены числа 4 и 5). (паскаль). Хэээлп, плиииз, очень срочно.

var a, b, sum, subt, multi: real;

begin

   readln(a, b);

   sum:= a + b;

   writeln(a, '+', b, '=', sum);

   subt:= a - b;

   writeln(a, '-', b, '=', subt);

   mult:= a * b;

   writeln(a, '*', b, '=', mult);

end.