1) Перевести в паскаль [tex]x=left sinx, x geq 9

1. 
program z1;
var x:real;
begin
writeln('Input x: ');
readln(x);
if (xlt;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((agt;1) and (alt;3)) then
writeln(a);
if((bgt;1) and (blt;3)) then
writeln(b);
if((cgt;1) and (clt;3)) then
writeln(c);
end.