Функция y=sin^2x - Pascal ABC

Формулировка задачи:

Для функции y=sin^2x, нужно найти х=0,1,2 .. 10 Пока сделала только это:

var x,s,t:real; 
i:integer; 
begin 
write('x=');readln(x); 
x:=2*x; 
s:=x; 
t:=x; 
i:=2; 
repeat 
begin 
t:=-t*x*x/((2*i-1)*(2*i-2)); 
s:=s+t; 
i:=i+1 
end; 
until abs(t)<e; 
writeln('s = ',s:0:6); 
writeln('sin(2x)=',sin(x):0:6); 
end.

Решение задачи: «Функция y=sin^2x»

Листинг программы

var x:integer;
begin
for x:=0 to 10 do
writeln('x=',x:2,' y=',sqr(sin(x)):0:3);
end.

Объяснение кода листинга программы

В данном коде происходит следующее:

Объявляется переменная типа integer с именем x.
Задается диапазон значений для переменной x от 0 до 10 с помощью цикла for.
Внутри цикла на каждой итерации вычисляется значение функции y=sin^2x и выводится на экран с помощью функции writeln.
Значение переменной x приводится к типу string с помощью функции x:2.
Значение функции sin(x) вычисляется с помощью встроенной функции sin, а затем возводится в квадрат с помощью оператора ^.
Значение функции sqr(sin(x)) округляется до трех знаков после запятой с помощью функции :0:3.
Выводится на экран значение переменной x и значение функции y=sin^2x с помощью функции writeln.
Код повторяется для каждой итерации цикла от 0 до 10.
Код завершается.