Ввести два целых числа: x и y. вычислить выражение y = sin x2 + + cos x2, если число x меньше либо равно 3, иначе вычислить остаток от деления x на 3.

Var
x: integer;
y:real;
begin
read(x, y);
y := sin(2 * x) + cos(2 * x);
if x > 3 then
writeln(x mod 3)
else
writeln(y);
end.