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

program zz1;

var a, i:integer; / / вводим переменные целого типа

begin

for i:=1 to 20 do / / организуем цикл на двадцать повторений

begin

read (a); / / вводим число с клавиатуры

if a mod 2 = 0 / / проверяем, если число четное, то

then writeln (' синус введенного числа = ', sin (a) : 5:2) / / выводим один ответ в формате пять знаков для всего числа и два знака после точки

else writeln (' косинус введенного числа = ', cos (a) : 5:2); / / выводим другой ответ в формате пять знаков для всего числа и два знака после точки

end;

end.