#1
алг
нач
нц пока не слева свободно
закрасить
вниз
кц
вверх
нц пока справа свободно
вправо
закрасить
кц
нц пока не справа свободно
закрасить
вверх
кц
вниз
кон
Это же слишком элементарно, чтобы самому не сделать...
var x:real;
begin
writeln('vvedi x:');
readln(x);
writeln('y=',2*x-5/x-1);
end.
Var a:array[1..12] of integer;
i:integer;
begin
for i:=1 to 12 do
read(a[i]);
for i:=12 downto 1 do
write(a[i],'; ');
end.
Стандартной функции, на сколько я знаю, нет, вот пример "самодельной" функции, возводящей число x в степень y:
function pow(x, y : integer) : integer;
var i, res : integer;
begin
res := 1;
for i:=1 to y do res := res*x;
pow := res;
end;