var
i: integer;
a: real;
begin
writeln('Enter a:');
readln(a);
for i := 1 to 7 do
writeln('d(', i, ') = ', a / i - tan(i));
end.
Объяснение:
