Код:
repeat
write('vvedit datu narodjenia(d m g) ');
read(d);
read(m);
read(g);
f:=true;
if d>31 then
begin
writeln('takogo dnia ne isnye, povtorit vvod');
f:=false;
end
else if m>12 then
begin
writeln('takogo misiacia ne isnye, povtorit vvod');
f:=false;
end
else if g>1992 then
begin
writeln('pracivniku menshe 16 rokiv, povtorit vvod');
f:=false;
end;
until f=true;
Попробуйте так, в принципе, это сложное условие, не проверял, но должно работать.