[Kode]
program Tema1;
var i,k:integer;
    a,d,d1,d2,f,f1,f2:real;
BEGIN
write('Vvedite celoe chislo i: ');
  readln(i);
write('Vvedite celoe chislo k: ');
  readln(k);
write('Vvedite deystvitelnoe chislo a: ');
  readln(a);
  d1:=(1+i)*(a+(k/(sqr(i)+4)));
  d2:=exp(-k-2)+(1/(sqr(a)+4));
   d:=d1/d2;
  f1:=1+cos(k-2);
  f2:=((sqr(a*a))/2)+sqr(sin(i));
   f:=f1/f2;
writeln('d= ',d:6:2);
writeln('f= ',f:6:2);
  readln
END.
[/kode]