Ответы и объяснения

2014-03-05T13:43:01+04:00
Var a,b,m,d,z: real;
  begin
  write('Введите b: ');
  readln(b);
    write('Введите m: ');
  readln(m); 
   write('Введите d: ');
  readln(d);
  a:=-12;
  while a<=100 do 
 begin
  z:=7.9*b-((a-m)/0.7*d)+sqrt(9-d-a);
  writeln('z',z);
  a:=a+9; 
 end;
end.