Вспомогательный алгоритм

a,b,t,M,R :integer;
Function F(x:integer):integer;
begin
  F:=(x+5)*(x+3);
end;
BEGIN
  a:= -5; b:=5;
  M:=a; R:=F(a);
  for t:=a to b do begin
  if (F(t)> R)then begin
  M:=t;
  R:=F(t);
  end;
  end;
  write(R);
END.

1. Алгоритм предназначен для поиска наибольшего значения функции F(t) на отрезке от a до b.
2. Квадратный трехчлен F(t) положительным старшим коэффициентом пересекает ось абсцисс в точках -5 и -3 и, следовательно, возрастет на луче [-3; ∞). Поэтому наибольшее значение функции достигается в точке 5 и равно F(5)=80.

тот же ответ, что и при входном значении k = 55. Значение k = 55 также включается в подсчёт различных значений k.

var k, i : longint;
function f(n: longint):longint;
begin     
f := 3*n*n+1
end;
begin    
 readln(k);    
 i := 0;     
while (f(i) i := i+1;
 writeln(i)
end.

Программа выводит минимальное i , которое удовлетворяет неравенству 3*i2>=K . Для k = 55 i=5
Найдём все подходящие k . Это те k, для которых выполнены оба неравенства и
Таким образом получаем 49

использоваться в другом алгоритме.

Подпрограмма - это фрагмент программы, реализующий вспомогательный алгоритм, к которому можно обратиться из любого места программы любое число раз.

использоваться в выражениях наряду со встроенными функциями

В процедуру могут передаваться параметры, то есть некоторые переменные, которые могут использоваться внутри процедуры. При вызове процедуры с помощью оператора вызова этим переменным присваиваются значения, указанные в этом операторе. Параметры, описанные в заголовке процедуры, называются формальными значения.
Значения, которые присваиваются этим параметрам в процессе вызова — фактическими параметрами.

используются только в процедуре, они могут быть или не быть, описываются после слова VAR, с указанием типа.

выходные параметры.
Входные – это и параметры значений, описываются через запятую с указанием типа. При выходе из процедуры – не сохраняются.
Выходные – это и параметры переменные, описываются после VAR через запятую, с указанием типа. При выходе из процедуры – сохраняются.
Фактические – располагаются в головном модуле при вызове процедуры.

порядку следования

могут быть или не быть)
begin
тело процедуры
end; (конец процедуры)
BEGIN (основная программа)
Фактические параметры
END.

чисел 
var x,y,m: integer;
procedure MaxNum(a,b: integer; var max: integer);
begin
if a>b then max:=a else max:=b;
end;
begin
writeln('Введите x,y ');
readln(x,y);
MaxNum(x,y,m);
writeln('Наибольшее число: ',m);
end.