Ответ: 1) a<17
if (если) условие then (то) действие выполняется, если условие выполняется (истино) else (иначе) действие выполняется, если условие не выполняется (ложно)
К 1 прибавим 2, прибавим 2, и ещё раз прибавим 2. Всё вместе равно 7. Затем 7 возводим в квадрат, что будет равно 49. Последним действием прибавляем и получаем нужное нам 51. Всего получилось ровно пять команд.
Ответ: 22212
//PascalABC.NET
//Версия 3.3, сборка 1627
begin
var x:=ReadReal;
if x<=0 then write(0) else if x>1 then write(x**4) else write(x);
end.