Достаточно легко это можно сделать в графическом редакторе Paint.Net или другом, способном работать со слоями. Сначала берёшь подходящую картинку, обрезаешь её до нужного размера. Потом создаёшь второй слой, состоящий из одноцветной фигуры круглой, овальной, прямоугольной, либо какой-то другой формы. В свойствах этого слоя, делаешь его прозрачным, до необходимой степени. Создаёшь третий слой, состоящий из текста ( выбираешь цвет текста, шрифт, размер ), который так же можно сделать прозрачным. Ну, и наконец, объединяешь слои и сохраняешь полученную картинку.
{1} var a,b,n:integer; c:real; begin read(n); for a := 1 to n-1 do for b := a to n-1 do begin c := sqrt(sqr(a) + sqr(b)); if c < n then if c = trunc(c) then writeln(a:3,' ',b:3,' ',c:3); end; end.
{2} var n,i:integer; s,x:real; begin read(n); s := 0; for i := 1 to n do begin read(x); s := s + x; end; writeln(s/n); end.
При таком наборе данных при вычислении значения s получается корень квадратный из отрицательного числа -29. Поэтому программа и выдает сообщение : Не число. Набор данных некорректен.