Составить программу значение 1 если указанное высказывание является…

Var n,n1,n2,sum: integer; Begin write ('Введите двузначное число: '); readln (n); n1: =n div 10; n2: =n mod 10; sum: =n1+n2; if (sum mod 2=0) then write ('1') else writeln ('0'); End.