Записати програму, яка створює у вікні дві кнопки різних кольорів, одна з яких рахує суму чисел, а інша – різницю.
Мова програмування Python

Var H1:array[1..5] of integer;
    H2:array[1..8] of integer;
    N1:array[1..5] of integer;
    N2:array[1..8] of integer;
    i, j:integer;

begin
randomize;
for i:=1 to 5 do {заполняем массивы}
 begin
 H1[i]:=random(10);
 N1[i]:=random(10);
 end;
for i:=1 to 8 do
 begin
 H2[i]:=random(10);
 N2[i]:=random(10);
 end;
for i:=1 to 5 do {сравниваем продукцию}
 for j:=1 to 8 do
 if N1[i]=N2[j] then writeln(i, ' и ', j, ' Выпускают одинаковую продукц.');
write('H1 ');{выводим массивы}
for i:=1 to 5 do
write(H1[i], ' ');
writeln;
write('N1 ');
for i:=1 to 5 do
write(n1[i], ' ');
writeln;
write('H2 ');
for i:=1 to 8 do
write(H2[i], ' ');
writeln;
write('N2 ');
for i:=1 to 8 do
write(N2[i], ' ');
writeln;
end.

// PascalABC.NET 3.1, сборка 1198 от 11.03.2016
begin
  var k:=0;
  var Terminate:boolean;
  repeat
    Terminate:=True;
    var n:=ReadInteger('Введите номер месяца:');
    case n of
    1,3,5,7,8,10,12:Writeln('31 день');
    4,6,9,11:Writeln('30 дней');
    2:Writeln('28 дней в обычном году и 29- в високосном')
    else begin
      Writeln('Вы ошиблись, номер должен быть от 1 до 12');
      Inc(k);
      Terminate:=False
      end
    end
  until Terminate;
  if k>0 then Writeln('Вы ошиблись ',k,' раз(а).')
end.

Тестовое решение:
Введите номер месяца: 18
Вы ошиблись, номер должен быть от 1 до 12
Введите номер месяца: 0
Вы ошиблись, номер должен быть от 1 до 12
Введите номер месяца: 5
31 день
Вы ошиблись 2 раз(а).