// Написано отвратно)

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.

/// Если честно, то не знаю, что тут можно прокомментировать, тк всё вроде ясно из вывода.

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.