Вводится 20 чисел от 1 до 20. Если число четное,то вывести его синус,если нечетное то косинус.

var ar:array[1..20] of integer;i:integer;begin;for i:=1 to 20 dobegin;readln(ar[i]);if (ar[i]>20) or (ar[i]<1) then exit;if ar[i] mod 2=0 then writeln(sin(ar[i])) else writeln(cos(ar[i]));end;end.