<em>// PascalABC.NET 3.2, сборка 1387 от 20.02.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln(ReadSeqInteger(4).Min)
end.
<u>Пример</u>
4 5 6 7
4
Program ideone;
var xPos, {В данной переменной храним позицию по оси X} yPos {А в этой по оси Y} : real; {Переменные вещественного типа, что бы можно было вводить дробные значения} begin
Write('Enter x position: '); Readln(xPos); {Вводим переменную по X}
Write('Enter y position: '); Readln(yPos); {И по Y}
if (xPos <= 0) and (yPos <= 1) and (yPos >= -1) {Если переменная находится в пределах прямоугольной области, что слева от оси Oy} then begin Write('Point in area.'); {Тогда всё окей, мы попали в заштрихованную зону и выведем ответ} end else {если же не попали, проверим другую} begin if (xPos*xPos + yPos*yPos <= 1) {Проверяем по формуле графика окружности попадание в полукруг справа от оси Oy} then begin Write('Point in area.'); {Если попали, выведем об этом соответствующее сообщение} end else begin Write('Point out of area.'); {Если же не попали, то печаль беда, всё плохо, так и скажем} end endend.
<span>1.В кастрюлю налить кефир.
2.</span><span>Вылить молоко
3.</span><span>Добавить сливки.
</span><span>4.Вбить яйца.
</span><span>5,Положить соль.
</span><span>6,Всыпать сахар.
</span><span>7,Всыпать разрыхлитель.
</span><span>8.Добавить муку. Тесто по консистенции должно напоминать жидкую сметану.
</span>9.Все как следует перемешать и оставить на час при комнатной температуре, затем убрать на ночь в холодильник<span>. Если планируете выпекать сразу, дайте тесту постоять минут 15-20 и приступайте к выпечке.
</span><span>10,Сковороду накалить, смазать маслом
</span><span>11,Выливая небольшое количество теста распределять его по всей поверхности сковороды.
</span><span>12,Выпекать с двух сторон до золотистого цвета, буквально по полминутки.
</span><span>13,Готовые блины складываем стопкой, промазывая каждый блин сливочным маслом.
</span><span>14,Подать блины к столу со сметаной, вареньем, медом или сгущенкой.</span>