Имеется два запоминающих устройства: одно ёмкостью 512 Кбайт, другое – 2048 байт. Укажите суммарную ёмкость обоих устройств в Кбайтах. В ответе запишите только число.

Var   a,b,c,d,x,y: real; begin   write('введите размеры сторон сундука -> '); readln(a,b,c);   write('введите диаметр иллюминатора -> '); readln(d);   if a< b then begin       x: =a;       if b< c then y: =b else y: =c   end   else begin       x: =b;       if a< c then y: =a else y: =c   end;   if (sqr(x)+sqr(y)< sqr(d)) then writeln('сундук можно вытащить')   else writeln('сундук нельзя вытащить') end. тестовое решение: введите размеры сторон сундука -> 3 5 3.99 введите диаметр иллюминатора -> 5 сундук можно вытащить ********************** условие попадания точки a(x,y) внутрь треугольника описывается как var   x,y: real; begin   write('введите координаты x и y точки -> '); readln(x,y);   if (x> =0) and (y> =0) and (y< =5-x) then writeln('да')   else writeln('нет') end. тестовое решение: введите координаты x и y точки -> 3 2.5 нет введите координаты x и y точки -> 2.1 2.8 да