Паскаль

11. 11

Составить блок схему алгоритма и написать программу.

(циклическая структура с предусловием)

Program W;

Var n: integer;

f: real;

Begin

n:=2;

while n<=20 do

begin

f:= sin(n);

write ('n=', n)

writeln ('sin', n, '=', f);

n:=n+1;

end;

End.