Построение таблицы значений функции y=sin(x) на отрезке 0<=x<=1 c шагом h=0.1 на Pascal

Program tabl; {таблица значений sin(x)}
uses crt;
const h=0.1 ;
var x,y:real;

begin
textcolor(5);
textbackground(10);
clrscr;
writeln(‘таблица’);
writeln(‘ x sinx’ ) ;
writeln(‘—————‘);
x:=0;
repeat;
writeln(‘! ‘,x:3:1,’ ! ‘ ,sin(x):10:7,’ ! ‘);
x:=x+h;
until x>1;
end.

Пояснения
Результатом работы программы будет:

Комментарии запрещены.