1. program z1; var x:real; begin writeln('Input x: '); readln(x); if (x<9) then begin x:=(x*x)/(x-9); writeln('New x: ',x); end else begin x:=Sin(x); writeln('New x: ',x); end; end. Поясню выбор типа х: вещественный, т.к. функция синуса вернет не целое число. 2. program z2; var a,b,c:real; begin writeln('Input a, b, c:'); readln(a,b,c); writeln('Числа, удовлетворяющие условию:'); if((a>1) and (a<3)) then writeln(a); if((b>1) and (b<3)) then writeln(b); if((c>1) and (c<3)) then writeln(c); end.