Ввести 3 числа найти их удвоенное произведение

//PascalABC.Net
//NaaMan
var
    a, b, c, result : real;
begin
    write ('Введите через пробел три числа > ');
    readln(a, b, c);
    result := a * b * c * 2;
    writeln('Результат вычислений = ', result)
end.