//PascalABC.NET 3.1
begin
var n := ReadInteger('>>');
WritelnFormat('{0} hours {1} minutes {2} seconds', n div 3600, n mod 3600 div 60, n mod 60)
end.
Var
x, y: real;
begin
write('Введите число X: ');
readln(x);
if x >= 0 then begin
y := sqrt(x) + 3;
writeln('y = ', y);
end
else writeln('Решения нет, X - отрицательное');
end.
Часть 4 Гражданского кодекса России, там всё про авторские и смежные права (да и про всё с интеллектуальной собственностью). Если речь про Россию.
Ну, ещё международное законодательство вроде Бернской конвенция об охране литературных и художественных произведений, статья 1—4.
Остальное, в общем, менее значимо, хотя в теории можно ещё найти, но это база.