В результате работы программы на экране должен появиться графический интерфейс: окно, холст, виджеты. Все объекты должны иметь настройки свойств. В коне приложения должно располагаться не менее 5 объектов.
В коде программы должны содержаться
• функции (не менее 3-х);
• реакции на события (не менее 3-х).
Напишите Если что то это Пайтон

//pascal abc.net v3.0 сборка 1111 begin var d: =readlnstring('вас программа, которая может делить '+'два числа с остатком. напишите, , свое имя'); writeln(', ',d,'! '); repeat writeln('как нужно написать ответ? ',#13#10,'1 вариант. 5: 3 = 1(ост.2)',#13#10,'2 вариант. 5 = 3*1 + 2',#13#10,'0 - завершить работу');   var c: char;     repeat     c: =readlnchar('введите 0, 1 или 2: ');       case c of       '0': exit;       '1','2': break;       end;     until false;   var a,b: biginteger;   if not biginteger.tryparse(readlnstring('введите целочисленное делимое: '),a) then   begin   writeln('вы ввели неверное значение. работа завершена');   exit   end;   if not biginteger.tryparse(readlnstring('введите целочисленный делитель: '),b) then   begin   writeln('вы ввели неверное значение. работа завершена');   exit   end;   if integer(b)=0 then { к типу integer. менее абстрактно, чем biginteger}   begin     writeln('вы ввели неверное значение.');     exit   end; if c='1' then  writelnformat('{0}: {1}={2}(ост.{3})',a,b,a div b,a mod b) else writelnformat('{0}={1}*{2}+{3}',a,b,a div b,a mod b); var f: char; repeat f: =readlnchar('если вы хотите завершить работу, введите "0", если продолжить - любую букву.'); case f of '0': exit; else break; end; until false; until false   end.