Сеня выбирает себе подарки на новый год. он знает, что дед мороз купит ему ровно два подарка: один якобы от мамы, а другой якобы от папы. в магазине, где дед мороз будет покупать подарки, n подарков, про каждый подарок известна его цена: цена i-го подарка равна ai рублей.
сеня знает, что дед мороз может потратить на покупку его подарков не больше x рублей. разумеется, он хочет получить как можно более дорогие подарки. таким образом, он хочет выбрать два различных подарка с максимальной суммарной ценой, но при этом она не должна превышать x.
сене выбрать себе подарки.
первая строка ввода содержит два целых числа: n и x (2 ≤ n ≤ 105, 2 ≤ x ≤ 109).
вторая строка ввода содержит n целых чисел: (1 ≤ ai ≤ 109).
выведите одно целое число: максимальную суммарную цену двух различных подарков, не превышающую x. если таких не существует - выведите 0.
uses crt;
var a,b,c:real;
begin
writeln('*** Alphaues is thinking... ***');
writeln('Ok, введите катеты: ');
write('a= ');readln(a);
write('b= ');readln(b);
writeln('Периметр прямоугольного треугольника = ',a+b+sqrt(a*a+b*b):8:2);
end.
Program Vby_2;
uses crt;
var a,b,h,t:real;
begin
writeln('*** Alphaues is thinking... ***');
writeln('Ok, введите данные: ');
write('Одно основание = ');readln(a);
write('Другое основание = ');readln(b);
write('Высота = ');readln(h);
t:=abs(a-b)/2;
writeln('Периметр трапеции =',a+b+sqrt(h*h+t*t):8:2);
end.
Program Vby_3;
uses crt;
var s:integer;
begin
writeln('*** Alphaues is thinking... ***');
write('Ok, введите расстояние в сантиметрах: '); readln(s);
write('Число полных метров = ',s div 100);
end.
uses crt;
var a,b,c:real;
begin
writeln('*** Alphaues is thinking... ***');
writeln('Ok, введите катеты: ');
write('a= ');readln(a);
write('b= ');readln(b);
writeln('Периметр прямоугольного треугольника = ',a+b+sqrt(a*a+b*b):8:2);
end.
Program Vby_2;
uses crt;
var a,b,h,t:real;
begin
writeln('*** Alphaues is thinking... ***');
writeln('Ok, введите данные: ');
write('Одно основание = ');readln(a);
write('Другое основание = ');readln(b);
write('Высота = ');readln(h);
t:=abs(a-b)/2;
writeln('Периметр трапеции =',a+b+sqrt(h*h+t*t):8:2);
end.
Program Vby_3;
uses crt;
var s:integer;
begin
writeln('*** Alphaues is thinking... ***');
write('Ok, введите расстояние в сантиметрах: '); readln(s);
write('Число полных метров = ',s div 100);
end.