Подія MouseMove для напису змінить колір тексту на зелений, встановить 80 пікселів відступ зверху, змінить текст напису на «Чудовий день

Ну, если уж нужна программа на русском (как вы говорите), то вот она (это для системы Кумир):

алг

нач

вещ д, ш, в, пп, пер, пс, ок, по;

вывод "Расчёт параметров комнаты:", нс

вывод "Введите длину комнаты: д= "

ввод д

вывод "Введите ширину комнаты: ш= "

ввод ш

вывод "Введите высоту комнаты: в= "

ввод в

пп := д*ш

пер := (д+ш)*2

пс := пер*в

ок := пп*в

по := пп*2+пс

вывод нс, "Площадь пола= ", пп , нс

вывод "Периметр комнаты= ", пер , нс

вывод "Площадь стен= ", пс , нс

вывод "Объём комнаты= ", ок , нс

вывод "Площадь общей поверхности комнаты= ", по , нс

кон

Скрин внизу- это то, что программа выводит на экран.

А)
алг А
нач
  цел N = 10
  целтаб a[1:N]
  цел i, s
 
  нц для i от 1 до N
    вывод "a[",i,"] = "
    ввод a[i]
  кц
  вывод нс
 
  s:=a[3]+a[5]
  вывод "s = ", s, нс
кон

Б)
алг Б
нач
  цел M = 10
  целтаб a[1:M]
  цел i, max
 
  нц для i от 1 до M
    вывод "a[",i,"] = "
    ввод a[i]
  кц
  вывод нс
 
  max:=a[1]
  нц для i от 2 до M
    если a[i] > max то
      max:=a[i]
    все
  кц
  вывод "max = ",max,нс
кон

В)
алг В
нач
  цел M = 10
  целтаб a[1:M]
  цел i, k
 
  нц для i от 1 до M
    вывод "a[",i,"] = "
    ввод a[i]
  кц
  вывод нс
 
  k:=0
  нц для i от 1 до M
    если mod(a[i],6)=0 то
      k:=k+1
    все
  кц
  если k>0 то
    вывод "k = ",k,нс
  иначе
    вывод "Нет чисел, кратных 6"
  все
кон
Г)
алг Г
нач
  цел N = 10
  целтаб a[1:N]
  цел i, p
 
  нц для i от 1 до N
    вывод "a[",i,"] = "
    ввод a[i]
  кц
  вывод нс
 
  p:=1
  нц для i от 1 до N
    если mod(a[i],2)=0 то
      p:=p*a[i]
    все
  кц
  вывод "p = ",p,нс
кон