Петя сидит на уроке и пишет в блокноте разные четвёрки чисел: или произвольные, или длины двух стороны прямоугольника, его площадь и периметр (только в таком порядке). Даны четыре числа. Проверь, могут ли они описывать прямоугольник. Если да, выведи "прямоугольник", если нет — "произвольные числа".

Ввод Вывод
2
3
6
10 прямоугольник
2
3
10
6 произвольные числа

Примечание: площадь прямоугольника со сторонами a и b равна a × b, периметр — 2 × (a + b).
Площадь прямоугольника со сторонами 2 и 3 — это 6, а периметр — 10. Так как Петя записывает свои четвёрки в определённом порядке, числа 2, 3, 6, 10 описывают прямоугольник, а 2, 3, 10, 6 Петя написал случайно.

1. Винер Норберт - изучил высшую математику, стал доктором философии Гарвардского университета , профессор Массачусетского технологического института. Получил известность как математик работами по теории потенциала, гармоническим функциям, рядам и преобразованиям Фурье, тауберовым теоремам, общему гармоническому анализу. У Винера возникла идея о необходимости создания единой науки, изучающей процессы хранения и переработки информации, управления и контроля. Для этой науки предложил название кибернетика .
2. Клод Шеннон - основатель теории информации .Приложил свои руки в инженерии, кибернетики, электротехнике, математике и теории информации. Разработал теорию связи кодирования. Создал промышленную  радиоуправляемую игрушку , ввёл понятие "бит" - единица измерения. Отмечен многими наградами и премиями,  и Нобелевской премией.
3. Тедом Нельсоном в 1965 году
4. Тим Бернерс-Ли в 1980 году

Var N,B,k:integer;
Begin
Write('N = ');ReadLn(N);
Write('Искомые числа:');
For N:= 1 to N do
    Begin
    B:=N;
    k:=1;
    // перед каждой проверкой k:=1
    // и если число не делится на любую из своих цифр, то k:=0
    While B > 0 do
       Begin
       if B mod 10 = 0 then k:=0
       // B mod 10 - это остаток от деления B на 10
       // то есть, например, 123 mod 10 = 3
       else if N mod (B mod 10) > 0 then k:=0;
       B:=B div 10
       // целая часть от деления B на 10
       // 123 div 10 = 12
       End;
    if k = 1 then Write(' ',N)
    End;
End.