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.