<h3>PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ReadSeqIntegerWhile(t -> t <> 0).Pairwise
.Where(t -> (t[0] < 0) and (t[1] >= 0)).ToArray;
if a.Length > 0 then (a.Last)[1].Println
else 'Отсутствует значение, удовлетворяющее заданию'.Println
end.
Начало
Взять нож
Взять хлеб
Взять колбасу
Взять масло
Взять сыр
Отрезать кусок хлеба
Намазать его маслом
Отрезать кусок колбасы
Положить её сверху на хлеб
Отрезать кусок сыра
Положить его сверху на колбасу
Отрезать ещё один кусок хлеба
Положить Его на сыр
Убрать на место сыр колбасу хлеб и нож
бутерброд готов
конец
Program lol;
var a,h,s:real;
begin
writeln ('Введіть сторону');
readln (a);
writeln ('Введіть висоту');
readln (h);
s := 0.5*a*h;
writeln ('Площа трикутника: ' ,s,'кв см');<span>
end.</span>
<span>Для того, чтобы сделать фоновый цвет, то нужно выбрать необходимый цвет и выбрать заливку.Для основного цвета необходимо выбрать цвет и рисовать кисточкой или карандашом.для намалювання прямоугольника необходимо на панели выбрать фигуру прямоугольника и нарисовать.</span>