fkn+antitotal

Урок 14 задача 1

Напишите функцию, которая возвращает сумму трёх целых чисел.

program project1;
var num1,num2,num3:integer;

function sum(num1,num2,num3:integer):integer;
begin
  result:=num1+num2+num3;
end;

begin
   write('Введите первое число: '); readln(num1);
   write('Введите второе число: '); readln(num2);
   write('Введите третье число: '); readln(num3);
   writeln('Результат: ', sum(num1,num2,num3));
readln();
end.

Задача 8 Урок 11

Пользователь вводит целые числа в цикле (разные: четные, нечетные, положительные, отрицательные в любом порядке и количестве). Считайте и выведите на экран значения первых трех отрицательных нечетных чисел. После чего завершите цикл.

Задача 7 Урок 11

Пользователь вводит целые числа, в ответ выводите символ #. Если введенное пользователем число равно 22, то завершите цикл не выводя ничего в ответ. Решите эту задачу 2-мя способами:

Задача 6 Урок 11

Модификация одной из пред. задач: Пользователь вводит целые числа. Пока он не введёт число большее 15, в ответ на каждое введённое число выводите сумму этого числа и пред-предыдущего введённого им числа, если это число чётное, иначе просто запрашивать новое число. Если же введённое число больше 15, то цикл необходимо завершить.
В первом витке цикла все "предыдущие" числа можно считать единицами.

Задача 5 Урок 11

Модификация одной из пред. задач: Пользователь вводит целые числа. Пока он не введёт число большее 15, в ответ на каждое введённое число выводите сумму этого числа и двух предыдущих введённых им чисел (предыдущего и пред-предыдущего), если же введённое число больше 15, то цикл необходимо завершить.
В первом витке цикла все "предыдущие" числа можно считать единицами.

Задача 4 Урок 11

Р

Задача 3 Урок 11

Решите с помощью цикла while:
Выведите на экран, все нечетные числа, делящиеся на 3 нацело, лежащие в диапазоне от 35 до 117.

var i:integer;
begin
  i:=35;
  while (i>=35) and (i<=117) do
    begin
      i:=i+1;
      if ((i mod 2)=1) and ((i mod 3)=0) then
        writeln(i);
    end;
  readln();
end.    

Задача 2 Урок 11

Пользователь вводит целые числа. Пока он не введёт число большее 15, в ответ на каждое введённое число выводите сумму этого числа и предыдущего введённого им числа, если же введённое число больше 15, то цикл необходимо завершить, не выводя в ответ сумму.
Первое введенное пользователем число можно сложить с единицей.

Задача 1 Урок 11

Пользователь вводит целые числа. Пока он не введёт число большее 15, в ответ на каждое введённое число выводите сумму этого числа и числа 7, если же введённое число больше 15, то цикл необходимо завершить.

var a:integer;
begin
  a:=1;
  while a<=15 do
  begin
    writeln('vvedite A');
    readln(a);
    writeln(a+7);
  end;
  writeln('vse');
  readln();
end.  

Описание проблемы

Инъекция в контроллер и один из методов, использующий фильтр выглядели так: