Табулирование. Помогите написать программу с использованием оператора repiat (постусловием)

Question

Табулирование

Составьте программу вычисления значения функции Y=sinX + 2X, 
где X меняется на интервале от A до B с шагом H.
Входные данные:
A, B, H
Выходные данные:
результат табулирования - таблица
Пример
Входные данные:
-5 5 2
Выходные данные:
----------------------
 x : f(x) 
----------------------
 -5.00000 : -9.04108
 -3.00000 : -6.14112
 -1.00000 : -2.84147
 1.00000 : 2.84147
 3.00000 : 6.14112
 5.00000 : 9.04108
-----------------------

Илья Балахнин · Accepted Answer

нету такого оператора "repiat", есть "repeat" который вместе с другим зарезервированным словом until представляют собой - ОПЕРАТОРЫ ОРГАНИЗАЦИИ ЦИКЛА С ПОСЛЕУСЛОВИЕМ! 
Успехов в изучении понятийной базы языка!

Иван Емельянов · Answer

var a,b,h : real;
function fun(a : real) : real
begin
fun:=sin(a)+2*a;
end;
Begin
readln(a,b,h);

Clrscr;
writeln("------------------------");
Repeat
writeln(a:2:5," : ",f(a):2:5);
a:=a+h;

until (a<=b);
readln;
end.