Паскаль

[Alfis]

Помагите пожалуста с курсавой работоой по Паскале!
Задание написать следующие программы:
1.Вывести введенное число в зеркальном отображении
2.Решить уравнение с точностью е=10^-5:
x*tgx-1/3=0
Зарание благодарен.

[slips]

странная курсовая

[KiDoki]

program p1;
var s,result:string;
i:integer;
begin
readln(s);
for i := Length(s) downto 1 do
result := result + s[i];
writeln(result);
readln;
end.