VBS Вывести на расстоянии 10 см по горизонтали и вертикали от левого верхнего угла экрана окно для ввода текстовой строки, показать эту строку в окне сообщений с кнопками Да и Нет и значком Exclamation Mark. Затем в окне сообщений показать код нажатой кнопки при выходе из предыдущего окна. Определить коды нажатия для всех кнопок.

// PascalABC.NET 3.3, сборка 1573 от 04.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=SeqRandom(ReadInteger('n='),-1000,1000).Select(t->t/100).ToArray;
  a.Println;
  a.Transform(t->t.Between(-4.7,-0.1)?t:-t); a.Println
end.

Пример
n= 10
6.6 -4.4 -2.21 -4.95 -7.26 1.38 -5.8 0.77 -4.41 3.31
-6.6 -4.4 -2.21 4.95 7.26 -1.38 5.8 -0.77 -4.41 -3.31

begin
  var n:=ReadInteger('n=');
  var (max,k,tmp):=(integer.MinValue,0,0);
  loop n do begin
    Read(tmp);
    if tmp>max then (max,k):=(tmp,1)
    else if tmp=max then k+=1
    end;
  Writeln('Максимум ',max,' встречен ',k,' раз(а)')
end.

Пример
n= 8
-6 -9 12 7 -5 12 10 -3
Максимум 12 встречен 2 раз(а)

Написано на языке python:

from math import sqrt as sqrt
x1, y1, x2, y2, x3, y3 = list(map(int,input().split()))
a = sqrt((x2-x1)**2 + (y2-y1)**2)   
b = sqrt((x3-x2)**2 + (y3-y2)**2)
c = sqrt((x1-x3)**2 + (y1-y3)**2)
p = (a+b+c)/2
S = sqrt(p*(p-a)*(p-b)*(p-c))  
R = round((a*b*c)/(4*S),3)      
print(R)   

Объяснения:
1) Задаём координаты (вводим 6 цифр через пробел)
2) Считаем длины сторон треугольника
3) Находим полупериметр
4) Находим площадь
5) Находим радиус описанной окружности и округляем его до 3 знаков после запятой(если не нужно округлять - оставьте только (a*b*c)/(4*S))
6) Выводим ответ