Задача на тему "Массивы" Опции

[kvadrat]

Условие:


Моё решение:

program qwsdfew;
var x,y:integer;
begin
for x:=1 to 12 do
begin
y:=(6*ln(arctan(x)+1.5*sqrt(x)));
writeln('x:5:2,'       ',y:5:2');
x:=x+0.05;
end;
end.

Тело задачи должно быть правильным, но выдаёт ошибку о несоответствии типов, как исправить? И чёто непойму где тут должны быть массивы?

[kvadrat]

Благодарю, всё отлично работает! тока непонял зачем wincrt я заменил просто на crt