Составить программу в паскале. найти p: от 6.7 до 7.8 с шагом 0,4. p-это произведение

var
  k, s: real;
  
begin
  s := 1;
  k := 6.7;
  while (k <= 7.8) do
  begin
    s *= k;
    k += 0.4;
  end;
  writeln(s);
end.

{ Должно быть, так }