СРОЧНО ПОМОГИТЕ!!!ввести с клавиатуры значение жирности молока (а-целое число в диапазоне...

Question

СРОЧНО ПОМОГИТЕ!!!
ввести с клавиатуры значение жирности молока (а-целое число в диапазоне от 0 до 100).
Вывести на экран следующее сообщение:
"Это-молоко"-если а<6;<br> "Это-сливки"-если 6 "Это-сметана"-если а>20

Answer 1

Program KW_ZH;
uses CRT;
var a:integer;
begin
readln(a);
if a<6 then<br>writeln('Это-молоко');
if a=6 then
writeln('Это-сливки');
if a>20 then
writeln('Это-сметана');
end.