[friz]

первая (писал на коленках):

Код:

PROGRAM Ivanov5;
{$APPTYPE CONSOLE}
USES
  	SysUtils;
Const
k=9;
VAR
      n,m:array[1..10] of integer;
      y:array [1..10] of real;
     	i:integer;
      x:real;
begin

      x:=1.02*10000;
      n[1]:=156;
      n[2]:=18;
      n[3]:=72;
      n[4]:=10;
      n[5]:=95;
      n[6]:=100;
      for i:=1 to 6 do
      m[i]:=n[i] mod k;

      for i:=1 to 6 do
      if m[i]=0 then Y[i]:=sin(x)
                else Y[i]:=cos(x)+m[i];


     	for i:=1 to 6 do
      WriteLn(' S=[',y[i]:8:4,']');
WriteLn('***** Press <ENTER> to finish *****');
  	Readln;			// задержка экрана
  	Readln;
END.

Вторую не понял что надо сделать ... если объяснишь то помогу