Каждое утро черепашка выползает из своей норки, чтобы позавтракать,
питается она одуванчиками. Сегодня, на восходе солнца, через время Т1
минут недалеко от норки начнет расти одуванчик. Это расстояние до
одуванчика черепашка преодолевает за время Т2 минут. Составить блоксхему определения времени Т минут, за которое черепашка доберется до
одуванчика, съест его мгновенно и вернется обратно в норку.

Решение: я попробую объяснить словами...
var a,b,c:integer;
begin
a:=1257;
c:=0;
  while (a>0) do              т.к a>0 (1257>0) начинаем решить действия
    begin
      if (a mod 2 <> 0) then   Здесь: 1257:2=628 (остаток 1)
        b:= a mod 10;            Здесь: 1257:10=125 (остаток 7)
        c:=c+b;                     Получается, мы складываем остатки и
        a:=a div 10;               получаем 8. Для ответа нам пригодится
    end;                              число, составленное из остатка а и 8,
    writeln(c);                       то есть 18.
end.

ответ: 18.

Прежде всего, код надо отформатировать и исправить имеющиеся в нем ошибки. А затем приступать к его рассмотрению.

var
  a, b: integer;

procedure proc(var a: integer; b: integer);
begin
  b := 4; a := 6; b := a + b
end;

begin
  a := 2; b := 3;
  proc(a, b);
  Writeln(a, ' ', b)
end.

Описаны две целочисленные переменные a и b. Им присваиваются значения 2 и 3 соответственно. Затем следует вызов процедуры proc, в которую эти переменные передаются в качестве параметров.

На входе в proc получаем a=2, b=3. Далее b получает значение 4, а получает значение 6 и затем b получает значение суммы a+b, т.е. 4+6=10. На этом работа процедуры завершается. Поскольку параметр процедуры a имеет описатель var, то в основную программу вернется значение, которое a имело внутри процедуры (т.е. 6). Значение b=10 действует только внутри процедуры и в основную программу не вернется.

Следовательно, в основной программа значение а поменяется на 6, а значение b сохранится прежним (3).
В результате на выходе будет строка:
6 3