Код проверен, и работает корректно! Если вас не устраивает слово 'Роз', просто поменяйте его на любое другое.
program gjvhj;
var
bool: boolean;
a: integer;
begin
readln(a);
bool := true;
begin
if a < 100 then
writeln(a, ' Роз', ';') end ;
begin
if a > 100 then
writeln('Введите число, меньше 100! ') ;
end;
end.