Имеем одну переменную a для блока описания переменных (var). Всего три процедуры. PASCAL ABCvar a: real;beginwriteln(\'a\');read(a);if a>0 thenbeginif a<=0.5 then writeln(\'a>0 a!=[0.5;2]\')elseif a>=2 then writeln(\'a>0 a!=[0.5;2]\')else writeln(\'Not right!\')endelse writeln(\'Not right!\')end.