1. Выведите на экран значение логического выражения, которое воспринимает значение true,

program k5_2;
var k: integer;
m: boolean;

begin
k := 1;

while klt;gt;0 do
begin
write(Введите число k = );
readln(k);
if ((k gt; 9) and (k lt; 100) and (k mod 5 = 0)) then m := true else m := false;
writeln(m)
end

end.

В программке проверяется условие: число обязано быть больше 9 и меньше 100 (то есть двузначным), а также кратным числу 5 для того, чтоб логическая переменная m приняла значение truе. Если хотя одна часть условия не производится, то m = false.