Операторы цикла Опции

[Guus Hiddink]

Помогите, пожалуйста, с заданием :
Дано целое число N (> 2) и две вещественные точки на числовой оси: A, B (A < B). Отрезок [A, B] разбит на равные отрезки длины H с концами в N точках вида A, A + H, A + 2H, A + 3H, ..., B. Вывести значение H и набор из N точек, образующий разбиение отрезка [A, B].

[neic]

Что не понятно-то? Вводим значения, вспоминаем 3 класс (а то и меньше), вспоминаем что недавно проходили на информатике.

var S:array[1..100] of real; {для формирования списка шагов}
...
{начало ввода данных}
write('Введите N');
Read(N);
write('Введите начало отрезка');
Read(A);
write('Введите конец отрезка');
Read(B);
{конец ввода данных}

H:=((B-A)/N); {узнали кол-во шагов}

S[1]:=A; {записываем первое разбиение}
For I:=2 to N-1 do
begin
       S[i]:=S[i-1]+H  {записываем следующие разбиения}               
end;
S[N]:=B {записываем конечное разбиение}