Создать программу ** Object Pascal. С помощью цикла for вывести значения от x0=0,5 до...

Question

Создать программу на Object Pascal. С помощью цикла for вывести значения от x0=0,5 до x=1,5 с шагом dx=0,25. (Да, в Pascal нельзя задать шаг, но в этом и суть задания)

Answer 1

var

 x: real;

 i: byte;

begin

 x := 0.5;

 for i := 1 to 5 do

 begin

   Write(x,' ');

   x := x + 0.25

 end

end.

---