Создать программу которая запрашивает два вещественных числа и выводит на экран их сумму разность произведение и частность

Var a,b:real;
begin
readln(a,b);
writeln('Сумма чисел равна: ',a+b);
writeln('Произведение чисел равно: ',a*b);
writeln('Частность чисел равна: ',a/b);
end.