Даю 80 поинтов!! Скласти таблицю функції tg(x) на інтервалі (0°,45°) із кроком 5°. Написать код программы на языке Pascal

program Hello;

var i : Integer;

var tan, rad : Real;

begin

i:=0;

while i <= 45 do

begin

  rad := i / 57.2957795131;'перевод в радианы'

  tan := sin(rad)/cos(rad);'в паскале нет тангенса, вычисление через sin и cos'

  writeln('tg(', i, ') = ', tan:4:3);

  i := i+5;'шаг'

end;

end.