Гиперсилтеменин неше тури бар

  я тут немного отсебятины добавил, что бы программа не слетала если что-то нерпавильное вводиш))

vara: string; b: integer; beginwriteln ('введите строку'); read (a); if (a='город минск')then writeln ('город минск')elsebeginwriteln ('введите "город минск", 1-продолжить, 0-выйти'); read (b); end; while (b = 1) dobeginwriteln ('введіте строку'); read (a); if (a='город минск')then writeln ('город минск')elsebeginwriteln ('введите "город минск", 1-продолжить, 0-выйти'); read (b); end; end;

end. 

сумму чисел один,два,три,четыре,пять разделить на разность чисел 10 и 7.равно пяти.

сумма=18

семерки нету

или тебе программу написать?

64 = 1000000

-120 = -1111000

-96 = -1100000

57 =  111001

вот конвертер: