1. Даны три числа a, b, c. Определить, какое из них равно d. Если равных d чисел нет, то найти максимальное из d-a, d-b, d-c. Примеры: • Вход: 10 4 15 4 Выход: второе число равно 4 • Вход: 5 13 9 7 Выход: максимальная разность 2. 2. Составить программу, которая при введенном возрасте человека правильно печатает: «Вам х лет (год, года)!». Например: • Вход: 44 Выход: Вам 44 года! • Вход: 31 Выход: Вам 31 год! • Вход: 11 Выход: Вам 11 лет! 3. Одной банки краски хватает на покраску x м2 площади. Забор имеет форму прямоугольника: высота а м, длина b м. Сколько целых банок краски необходимо приобрести, чтобы покрасить забор? Вход: х=5 а=3 b=200 Выход:120 Вход: х=3.35 а=2.5 b=12 Выход:9 4. Даны 2 числа. Если их сумма больше 10, то вывести на экран их удвоенное произведение, а иначе большее из чисел заменить их суммой, а меньшее разностью. Вход: 25 -8 Выход: -400 Вход: 5 3 Выход: 8 2

P.S в 4 можно было короче, но чет я тупанул и лень переделывать было

// PascalABC.NET 3.3// Cборка 1590 от 03.12.20171)begin  var (a,b,c):=ReadInteger3('Введите a,b,c,d-> '); var d:=ReadInteger;  if a=d then begin Println('Первое число равно',d); exit; end;  if b=d then begin Println('Второе число равно',d); exit; end;  if c=d then begin Println('Третье число равно',d); exit; end;  a:=d-a; b:=d-b; c:=d-c;  var max:=max(max(a,b),c);  Println('Максимальная разность->',max);end. 2)begin var a:=ReadInteger('Введите возраст->'); if (a mod 10=1) and (a<>11)    then writelnformat('Вам {0} год',a)   else      if (a mod 10=2) or (a mod 10=3) or (a mod 10=4)         then writelnformat('Вам {0} года',a)        else writelnformat('Вам {0} лет',a);end.3)begin var (x,a,b):=readreal3('Введите x,a,b->'); WritelnFormat('Нужно приобрести {0} банок краски',Round((a*b)/x));end.4)begin var (a,b):=readreal2('Введите a,b->'); if a+b>10    then println(2*a*b)   else      if a>b        then        Println(a+b,a-b)       else        Println(a-b,a+b);end.