Составить программу в 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 " НЕ ПРЯМОУГОЛЬНИК"