попробй так напиши
var x:integer;
begin
writeln (' Введите число ');
read (x);
if x>9 then writeln('da');
if x <9 then writeln('net');
if x < 100 then writeln('da');
end.
