Обратное число
Даны два целых числа m и a. Если не существует обратного числа к a по модулю m, то выведите число −1, а если существует, то выведите это число (ответ должен лежать в границах от 0 до m−1).
Ввод
179 57
Вывод
22

Код для примитивной "рисовалки", рисуете что хотите. Для сохранения на рабочий стол нажимаете клавишу "Enter"

// PascalABC.NET 
// Версия 3.3.5 сборка 1662 (29.04.2018)

uses GraphABC; 

begin 
Window.Title := 'Рисование мышью(Enter - сохранить на раб. стол)'; 
Pen.Color := Color.Red; 
Pen.Width := 3; 
OnMouseDown := (x,y,mb) -> MoveTo(x,y); 
OnMouseMove := (x,y,mb) -> if mb=1 then LineTo(x,y); 
var a:=System.Security.Principal.WindowsIdentity.GetCurrent.Name;
OnKeyDown:=k->if k=13 then begin
SaveWindow('C:\Users\'+copy(a,pos('\',a)+1,a.Length-pos('\',a)+1)+'\Desktop\image.png'); Window.Close; end;
end.

По бокам коробки кругленькие кнопки.
Тут же рядом, в уголке ручка с трубкой на шнурке.
Без языка говорит, прекрасно слышит без ушей.(телефон) 
Под крышей — четыре ножки, а на крыше — суп да ложки.(стол)
Маленькая, плоская, в компьютер вставляется,
Тут же сказки, и подсказки, даже фото появляются!( Дискета)
С листьями, но не растение.Сшита, но не одежда.Много о людях знает, но не детектив.(Записная книжка)
Маленькие зверьки, серенькие шубки.
Длинные хвосты, черненькие глазки, остренькие зубки.(мышь)
Про школу не знаю