Ввести с клавиатуры значение жирности молока (а-целое число в диапазоне от 0 до 100). вывести на экран следующее сообщение: "это-молоко"-если а< 6; "это-сливки"-если 6 "это-сметана"-если а> 20

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