Составить программу в VBA Дано натуральное четырехзначное число. Определить цифры этого числа (К, L, M, N) и выяснить, можно ли построить параллелограмм со сторонами K, L, M, N.
Input KLMN K=KLMN div 1000 L=(KLMN mod 1000) div 100 M=(KLMN mod 100) div 10 N=RLMN mod 10 IF (K=L AND M=N) OR (K=M AND L=N) OR (K=N AND L=M) THEN PRINT " ПРЯМОУГОЛЬНИК" ELSE PRINT " НЕ ПРЯМОУГОЛЬНИК"