Y=tgx при х изменяется от 0 до 10 Написать программу так чтобы она решала задачу с использованием оператора цикла

Первый вариант выполнения задачи:consta = 0;b = 10;varx, y, h: real;beginh := 0.5;x := a;repeaty := 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;begintg:=sin(a)/cos(a);end;vary:real; x:integer;beginfor x:=0 to 10 do beginy:=tg(x);writeln(\'Y=\',y);end;end.