30 ‼️ почему рекомендуют делать доступ к полям объекта только с методов?

Ну, во-первых, за тем, чтобы придерживаться сути инкапсуляции: Людям свойственны ошибки. Например, будь у нас прямой доступ к полю, мы бы могли ошибочно изменить значение. При использовании методов, мы, разумеется, 5 раз подумаем, прежде чем взаимодействовать с ним.

Во-вторых, для простоты. Нам не нужно подробно изучать все внутреннее устройство, достаточно начать взаимодействовать с методом, который сделает всю внутреннюю работу за вас.

И лишь пару лет тому назад интернет не был так значим людьми, как в наши дни. Дети не ходят гулять, а сидят в интернете, играя в различные игры или общаясь с людьми в соц сетях. Живое общение заменяет "смс". Не понимаешь чего-либо в уроке или жизни - загулил, хотя можно подойти к учительнице, попросить и она попытается понятно донести ту или иную информацию; или же подойти к родителям и попросить совета. Сейчас интернет имеет большую роль в нашем образе жизни, в жизни молодежи, но это не значит, что стоит забывать о реальном мире. 
Блин, как-то так 

Program z1;
var a,b,c,d:integer;
procedure nod(x,y:integer;var nod2:integer);
begin
        while x<>y do begin
                if x>y then begin
                        x:=x-y
                end
                else begin
                        y:=y-x
                end
        end;
        nod2:=xend;
begin
        write('a=');readln(a);
        write('b=');readln(b);
        write('c=');readln(c);
        write('d=');readln(d);
        nod(a,b,b);
        nod(b,c,c);
        nod(c,d,d);
        writeln('nod=',d);
        readln
end.