Налить в чайник воду.
Зажечь спичку
.Открыть кран газовой горелки.
Поднести спичку к горелке.
Поставить чайник на плиту.
Ждать, пока вода закипит.
Выключить газ.
Var
A: integer;
begin
readLn(A);
if (A mod 2 = 0) then
begin
A := sqr(A);
WriteLn('Квадрат введённого числа равен: ', A);
end else
begin
A := ((A mod 100) div 10) + (A mod 10) + (A div 100);
writeLn('Сумма цифр введённого числа равна: ', A);
end;
end.
Исходя из текста условия можно предложить что имеется ввиду преобразование текста из одной кодировки в другую. Если предположение верно, то задача описывается следующим уравнением:
16*n - 800 = 8*n
n=100
где n - число символов