2 задачи по информатике (pascal)

Question

1. Введите 3 числа, найдите их произведение, и вывести результат 
2. Проверить входит ли в заданные промежутки от 12 до 15,5 (влючая больше или равно и меньше или равно)

Случайный Прохожий · Accepted Answer

Могу дать первую задачку: 
var a,b,c,p:real; 
begin 
cls; 
writeln('Введите 3 числа (через пробел) '); 
readln(a,b,c); 
 p:=a*b*c; 
 writeln('Произведение равно ',(p)); 
end.