Записать на языке Паскаль.

Ввести четырехзначное число. Если оно четное, разделить его на 2 и вывести на экран, в противном случае вычесть из него 1000 и вывести на экран. Если ввели не четырехзначное число, должна появиться надпись об этом, и вычисления не производятся.
Задание по информатике