Написать программу на языке паскаля 1) Дано натуральное число. Определить…

Задача 1program xxx; var n: integer; begin write ('введите число n='); readln (n); if n mod 2=0 then write ('четное') else write ('нечетное'); realdnend. Задача 2program xxx; var n: integer; begin write ('введите число n='); readln (n); e: =n mod 10 if e=7 then write ('заканчивается на 7') else write ('не заканчивается на 7'); realdnend.