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

Var ar:array[1..20] of integer;
i:integer;
begin;
for i:=1 to 20 do
begin;
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.