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 > b;

end.

Второй вариант выполнения задачи:

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.