Даны произвольные числа a, b, c. выяснить, можно ли построить треугольник с такими сторонами, если можно, то какой.

Получится вот так :)

По теореме косинусов находим косинус угла, лежащего против большей стороны и определяем вид треугольника.

var a, b, c, alpha: real;
begin
  write('Введите стороны: ');
  read(a, b, c);
  if a < b then swap(a, b);
  if a < c then swap(a, c);
  alpha := (b * b + c * c - a * a) / (2 * b * c);
  if a >= b + c then
    writeln('Треугольник нельзя построить')
  else if alpha = 0 then
    writeln('Треугольник прямоугольный')
  else if alpha > 0 then
    writeln('Треугольник остроугольный')
  else
    writeln('Треугольник тупоугольный')
end.

Если я правильно понял то 1024 цвета, может содержать 1 пиксел.Если так то начнём: 1024 =2^10 цвета можно закодировать 10 битами. то есть на 1 пиксель отводится 10 бит. Потом считаем сколько пикселей находится в нашем изображении: это получается 200*150=30000 пикселей. Умнажаем кол-во пикселей на размер памяти которой надо для 1 пикселя: 30000*10=300000 бит. осталось перевести это в кбайты. 1 байт=8 бит
1кбайт=1024байта
1кбайт=1024*8=8192бита
потом делим 300000бит на 8192 и получается 36.6 или приблизительно 37 кбайт

var a,b,c:integer;
begin read(a,b,c);
   if (a > b) and (a > c) then
        write(a)
   else
       if (b > a) and (b > c) then
        write(b)
   else
        write(c);
end.
В делфи добавишь на форму Эдиты(4 штуки) и одну кнопку. В трех Эдитах будешь вводить свои значения, а в четвертом выведешь ответ и все это при клике на кнопку:
Procedure btn1Click;
var a, b, c, max: integer; 
begin 
a:= StrToInt(edt1.Text); // где edt1,2,3 - имена полей для ввода(Эдиты)
b:= StrToInt(edt2.Text);
c:= StrToInt(edt2.Text);
   if (a > b) and (a > c) then 
        max:= a; 
   else 
       if (b > a) and (b > c) then 
        max:= b;
   else 
        max:= c;
edt4.Text:= 'Максимальное число' + max;
//или ShowMessage(Максимальное число' + max); 
end.