Определите значение переменной b после выполнения алгоритма: a : = 10 b : = 18 a : = b mod 3 + a div 2 b : = a+b

mod это остаток от деления 
div целая часть от деления 
тогда b mod 3 => 18/3 = целая часть 6 остаток 0 (нам нужен только 0)
a div 2 => 10/2 = целая часть 5 остаток 0 (нам нужна только 5)
следовательно 0+5 = 5 
b:=a+b; => b:=5+18;
тогда на вывод будет 23

Const
  n=6;
  a:array[1..n] of string=
    ('Иванов','Петров','Сидоров','Козлов','Баранкин','Пупкин');
  b:array[1..n] of real=(15,13.9,16.1,14.2,14.5,15.3);
  // массивы используются чтобы избежать в примере ручного ввода
var
  i,j,k:integer;
  t:real;
  s:string;
  sa:array[1..n] of string;
  sb:array[1..n] of real;
begin
  for i:=1 to n do begin sa[i]:=a[i]; sb[i]:=b[i] end;
  // сортировка по возрастанию времени
  for i:=1 to n-1 do
    for j:=1 to n-1 do
      if sb[j]>sb[j+1] then begin
        s:=sa[j]; sa[j]:=sa[j+1]; sa[j+1]:=s;
        t:=sb[j]; sb[j]:=sb[j+1]; sb[j+1]:=t
        end;
  // вывод
  for i:=1 to 4 do Writeln(sa[i],' - ',sb[i])
end.

Пример
Петров - 13.9
Козлов - 14.2
Баранкин - 14.5
Иванов - 15

Сетевая паутина
Оплела весь белый свет.
Не пройти детишкам мимо.
Что же это?
интернет

like 5 0 dislike
Он знает всё и даже больше,
И к нам на поспешит.
Любой вопрос, пусть очень сложный,
Мгновенно с лёгкостью решит.
Плетёт свою он паутину,
Хотя, по сути, не паук.
Он видит всё. Вы догадались?
А, ну-ка, что это за друг?
интернет

like 2 0 dislike
Это будто паутина,
В ней найдёшь ты всё о всех:
О животных, о машинах,
Будет дождь сегодня, снег?
Всё про мир и о планете
Прочитаешь в...
интернете

like 4 0 dislike
Её называют всемирная сеть,
Чего в этой сети только нет!
Она всё расскажет и даже покажет.
Она называется как?...
интернет

like 2 0 dislike
Он всех нас объединяет,
Обо всём на свете знает,
Он кино тебе покажет,
Обо всём тебе расскажет.
интернет

like 4 0 dislike
В нём есть игры и соцсети,
Фильмы, почта, курс валют.
Есть все новости планеты,
В нём танцуют и поют.
интернет

like 8 0 dislike
Средство связи редким было,
А сейчас — у всех оно.
Вот уже беспроводное,
Раньше — оптоволокно.
интернет