ПРОГРАММА И БЛОК СХЕМА. ПОМОГИТЕ СРОЧНО

var
  a, b, x, y: real;
  i, m: integer;

begin
  Write('Введите через пробел m,x,a: ');
  REadln(m, x, a);
  b := 1;
  for i := 1 to m do
  begin
    b := b * 5 * x;
  end;
  if b > -10 then y := a - b
  else y := x * x + 3 * b;
  Writeln('y=', y:0:5)
end.