Здравствуйте, Danka!
1) uses crt;
var n,m: real;
begin
clrscr;
writeln(' ','0',' ','Pi/2');
n:=sin(0);
m:=sin(pi/2);
writeln('sin(x) ', n:0:2,' ',m:0:2);
n:=cos(0);
m:=cos(pi/2);
writeln('cos(x) ', n:0:2,' ',m:0:2);
readkey;
end.
Это самый простой и удобный в плане вывода способ, можно сделать еще через цикл, используя repeat (пока x не станет равно Pi/2).

2)uses crt;
var n: integer;
begin
clrscr;
write('vvedite nomer kvartiri ');
read(n);
if (n>=1) and (n<=10) or (n=12) or (n=14) then write('podezd #1');
if (n>=17) and (n<=20) or (n=25) then write('podezd #2');
if (n>=35) and (n<=40) or (n=33) then write('podezd #3');
if (n=50) or (n=55) then write('podezd #4');
readkey;
end.

Здравствуйте, Danka!
Получите правильные ответы. Решения в приложении.

Приложение:
№1.
uses crt;
var x,dx:real;
n:integer;
begin
clrscr;
write('n=');readln(n);
x:=0; dx:=(pi/2)/(n-1);
while x<=pi/2 do
begin
writeln('x=',x:0:2,' sinx=',sin(x):2:2,' cosx=',cos(x):2:2);
x:=x+dx;
end;
readln
end.
№2.
uses crt;
var n:byte;
begin
clrscr;
repeat
write('n=');
readln(n);
until (n>=1)and(n<=55);
case n of
1..10,12,14:writeln('1 podjezd!');
17..20,25:writeln('2 podjezd!');
33,35..40:writeln('3 podjezd!');
50,55:writeln('4 podjezd!');
else writeln('Takogo klienta net!');
end;
readln
end.