Y=tgx при х меняется от 0 до 10 Написать программку так

Первый вариант исполнения задачи:
const
a = 0;
b = 10;
var
x, y, h: real;
begin
h := 0.5;
x := a;
repeat
y := sin(x) / cos(x);
writeln(x = , x:4:1, y = , y:6:3);
x := x + h;
until x gt; b;
end.
2-ой вариант исполнения задачи:
function tg(a:real):real;
begin
tg:=sin(a)/cos(a);
end;
var
y:real; x:integer;
begin
for x:=0 to 10 do begin
y:=tg(x);
writeln(Y=,y);
end;
end.