Задача на циклы. Таблица косинусов

[Incomprensible]

Помогите, пожалуйста с задачкой:
Составить программу построения таблицы значений функции косинус икс от нуля до пи с шагом пи на восемь. Углы вроде и в радианах и в градусах должны быть. Цикл for. Желательно должны быть линеечки
Очень-очень срочно. До завтра.
Заданее безмерно благодарна

[__STDC__]

uses CRT;

var
	x:real;

begin
clrscr;
x:=0; 
while (x <= pi) do begin
	writeln('x (in radians) = ',x:0:5,'   |   x (in degrees) = ',x*180/pi:5:1,'   |   cos(x) = ',cos(x):8:5);
	x:=x+pi/8;
end; 
readkey;
end.

Какие еще линеечки? тьху... for... ненавижу кнопку "Правка"... хоть на паскале??

uses CRT;

var
	i:integer;

begin
clrscr;
for i:=0 to 8 do begin
	writeln('x (in radians) = ',pi/8*i:0:5,'   |   x (in degrees) = ',pi/8*i*180/pi:5:1,'   |   cos(x) = ',cos(pi/8*i):8:5);
end; 
readkey;
end.

[Incomprensible]

Спасибо огромнейшее)

[__STDC__]

Да не за что =)