program CheckNumber;varnum: integer;beginwriteln('Введите натуральное число:');readln(num);
if (num >= 10) and (num < 100) thenwriteln('Число ', num, ' является двузначным.')elsewriteln('Число ', num, ' не является двузначным.');end.
program CheckNumber;
var
num: integer;
begin
writeln('Введите натуральное число:');
readln(num);
if (num >= 10) and (num < 100) then
writeln('Число ', num, ' является двузначным.')
else
writeln('Число ', num, ' не является двузначным.');
end.