помогите написать программу
Вывести на экран в порядке убывания числовой ряд действительных чисел от 10 до 20 с шагом 0,4.
вторая.
var chislo:real;
begin
chislo:=20;
while chislo > 10 do
begin
writeln(chislo);
chislo:=chislo-0.4;
end;
end.