Середовище виконання : IDLE (Python) Завдання 1
 
Створити вікно з такими характеристиками :
Заголовок вікна «Ваше прізвище»
Характристики вікна :
• Розміри 500x700
• Колір фону #31B404
Додати кнопку з текстом « Перша кнопка»
Характеристики кнопки:
• Текст на кнопці «Перша кнопка»
• Фоновий колір кнопки  #006400
• Колір тексту – на Ваш вибір
• Відступи від межі до змісту по горизонталі і вертикалі – 20 і 8
• Шрифт – Аriel 18
• Ширина кнопки - 15
• Висота кнопки - 3
• Товщина кордону-5
• Тип кордону-SUNKEN
 
Завдання2
Доопрацювати попередню програму

Створити ще одну кнопку з таким текстом «Друга кнопка»: так щоб
• 1-й рядок - Друга
2-й рядок - кнопка
• Вирівнювання тексту в кнопці по центру

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

begin
  var n,p:integer;
  var s:string;
  for var a:=1 to 9 do
    for var b:=0 to 9 do
      for var c:=0 to 9 do begin
        n:=100*a+10*b+c;
        s:=(n*n).ToString.Right(3);
        p:=Pos(a.ToString,s);
        if p>0 then begin
          Delete(s,p,1);
          p:=Pos(b.ToString,s);
          if p>0 then begin
            Delete(s,p,1);
            if s=c.ToString then Write(n,'(',n*n,')',' ')
            end
          end
        end
end.

Результат
205(42025) 376(141376) 421(177241) 625(390625) 963(927369)

// PascalABC.NET 3.0, сборка 1157 от 02.02.2016
begin
  var a:array[1..20] of integer;
  Randomize;
  for var i:=1 to 20 do a[i]:=Random(-50,50); a.Println;
  var b:=Range(2,20,2).Select(i->a[i]);
  Writeln('Элементы с четными индексами по возрастанию');
  b.Sorted.Println;
  Writeln('Элементы с четными индексами по убыванию');
  b.SortedDescending.Println;
end.

Тестовое решение:
-15 46 -34 -3 43 16 -17 -28 -19 12 -28 -11 48 -12 -1 33 -37 9 6 -40
Элементы с четными индексами по возрастанию
-40 -28 -12 -11 -3 9 12 16 33 46
Элементы с четными индексами по убыванию
46 33 16 12 9 -3 -11 -12 -28 -40