Запиши в тетради функции кнопок показанных на изображении​

смотри блок-схему в приложенном файле

var a,res: integer;

begin

writeln('введите число');

readln(a);

res: =sqr(a);

writeln('квадрат числа,'a', равен,'res',');

readln;

end.

64 = 1000000

-120 = -1111000

-96 = -1100000

57 =  111001

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

за два можно. ложим по 3 монеты. если ровно - то фальшивая среди двух оставшихся, которую легко найти. если неровно - то берём 2 монеты из лёгкой чашки и взвешиваем. если ровно - то оставшаяся и есть фальшивая, если неровно - то фальшивая наверху.