1) Перевести в паскаль

2) Даны три действительных числа. Вывести те из них, которые принадлежат интервалу (1,3).

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.