помогите написать программу

Вывести на экран в порядке убывания числовой ряд действительных чисел от 10 до 20 с шагом 0,4.
вторая.

var chislo:real;
begin
chislo:=20;
while  chislo > 10 do
begin
writeln(chislo);
chislo:=chislo-0.4;
end;
end.