Who will help to arrange comments to the pascal code part 3?

Question

Pascal

The first control, I don’t really understand yet, the programs are also the first. I wrote programs, they seem to work, they are not able to explain)) Help with comments on the following codes:
3.

var
a,b,c,x,y,z, dy: integer;
begin
writeln ('Введите дату Вашего рождения и сегодняшнюю дату');
readln(a,b,c,x,y,z);
dy :=z-c;
if (y<b) or (y=b) and (x<a) then
dec(dy);
writeln(dy);
readln
end.

4.

var x,y,z:real;
begin
writeln('Введите значения x,y,z через пробел');
readln (x,y,z);
if (x>z)and(x>y) then write('Максимальное значение ',x:4:0);
if (z>x)and(z>y) then write('Максимальное значение ',z:4:0);
if (y>z)and(y>x) then write('Максимальное значение ',y:4:0);
writeln;
if (x<z)and(x<y) then write('Минимальное значение',x:4:0);
if (z<x)and(z<y) then write('Минимальное значение',z:4:0);
if (y<z)and(y<x) then write('Минимальное значение',y:4:0);
readln
end.

Answer 1

// Written disgusting)

var
a,b,c,x,y,z, dy: integer; 
begin
writeln ('Введите дату Вашего рождения и сегодняшнюю дату');
readln(a,b,c,x,y,z); /// Вводим: ЧИСЛО, МЕСЯЦ, ГОД ; ДАТУ(чиcло, месяц, год)
dy :=z-c; ///Вычисляем Возраст текущий
if (y<b) or (y=b) and (x<a) then /// Корректируем возраст.  Было др или нет
dec(dy); 
writeln(dy);
readln
end.

/// To be honest, I don't know what to comment here, because everything seems to be clear from the output.

var x,y,z:real;
begin
writeln('Введите значения x,y,z через пробел');
readln (x,y,z);
if (x>z)and(x>y) then write('Максимальное значение ',x:4:0);
if (z>x)and(z>y) then write('Максимальное значение ',z:4:0);
if (y>z)and(y>x) then write('Максимальное значение ',y:4:0);
writeln;
if (x<z)and(x<y) then write('Минимальное значение',x:4:0);
if (z<x)and(z<y) then write('Минимальное значение',z:4:0);
if (y<z)and(y<x) then write('Минимальное значение',y:4:0);
readln
end.