Program z;
var x,y: integer;
begin
readln(x); if x < 4 then
y := 2 * (x * x * x) + 1
else y := 3 * (x * x) - 2;
writeln(y);
end.
Ответ:
program Num5;
var
A: array [1..5] of Integer;
i, s, iLast: Integer;
begin
for i := Low (A) to High (A) do begin
Write ('Введите ', i, ' число: ');
ReadLn (A [i]);
end;
WriteLn;
s := 0;
for i := Low (A) to High (A) do begin
if A [i] > 0 then
s := s + A [i]
else
s := s - A [i];
end;
iLast := -1;
for i := High (A) downto Low (A) do begin
if A [i] > 0 then begin
iLast := i;
Break;
end;
end;
WriteLn ('Сумма = ', s);
if iLast <> -1 then
WriteLn ('Последнее положительное значение = ', A [iLast])
else
WriteLn ('Положительных значений не найдено.');
ReadLn;
end.
Тэг <a href=#имя_метки> Текст ссылки </a>
Чтобы обозначить метку(якорь) испоьзуется тэг:
<a name = имя> целевой текст </a>
и т.д цвета и тому подобное в приложении смотри)