Умножить два чила введеные пользователем ответ в паскале)

program xxx; var a, b, c: real; begin write ('введите первое число а='); readln (a); write ('ввседите второе число b='); readln (b); c: =a*b; writeln ('произведение=', с); readlnend.