年齢判定

program nenrei;
{$APPTYPE CONSOLE}
uses SysUtils;
label 10;
label 20;
label 30;
label 40;
label 50;
var y1,m1,d1,y2,m2,d2,y3:integer;
begin
write('あなたの生まれた年を入力してください。');
readln(y1);
10:write('あなたの生まれた月を入力してください。');
readln(m1);
while(m1 < 1) or (m1 > 12) do
begin
writeln('月は１から１２までしかありませんよ。');
goto 10;
end;
20:write('あなたの生まれた日を入力してください。：');
readln(d1);
while((m1 = 1)or(m1 = 3)or(m1 = 5)or(m1 = 7)or(m1 = 8)or(m1 = 10)or(m1 = 12)) and (d1 > 31) or
((m1 = 4)or(m1 = 6)or(m1 = 9)or(m1 = 11)) and (d1 > 30) or
(m1 = 2)and (d1 > 29) or
(d1 < 1) do
begin
writeln('',m1,'月に',d1,'日はありませんよ。');
goto 20;
end;
while((m1 = 2) and (d1 = 29) and (y1 mod 4<>0)) or
((m1 = 2) and (d1 = 29) and (y1 mod 100=0) and (y1 mod 400<>0))do
begin
writeln('',y1,'年は閏年ではありませんよ。');
goto 20;
end;
30:write('今日は何年ですか。');
readln(y2);
while (y1>y2)do
begin
writeln('あなたはまだ生まれていませんよ。');
goto 30;
end;
40:write('今日は何月ですか。');
readln(m2);
while(m2 < 1) or (m2 > 12) do
begin
writeln('月は１から１２までしかありませんよ。');
goto 40;
end;
while(y1=y2)and(m1>m2)do
begin
writeln('あなたはまだ生まれていませんよ。');
goto 40;
end;
50:write('今日は何日ですか。');
readln(d2);
while((m2 = 1)or(m2 = 3)or(m2 = 5)or(m2 = 7)or(m2 = 8)or(m2 = 10)or(m2 = 12)) and (d2 > 31) or
((m2 = 4)or(m2 = 6)or(m2 = 9)or(m2 = 11)) and (d2 > 30) or
(m2 = 2)and (d2 > 29) or
(d2 < 1) do
begin
writeln('',m2,'月に',d2,'日はありませんよ。');
goto 50;
end;
while((m2 = 2) and (d2 = 29) and (y2 mod 4<>0)) or
((m2 = 2) and (d2 = 29) and (y2 mod 100=0) and (y2 mod 400<>0))do
begin
writeln('',y2,'年は閏年ではありませんよ。');
goto 50;
end;
while(y1=y2)and(m1=m2)and(d1>d2)do
begin
writeln('あなたはまだ生まれていませんよ。');
goto 50;
end;
if (m1 > m2) or ((m1 = m2)and(d1 > d2))then
y3 := y2 - y1 - 1
else y3 := y2 - y1;
writeln('あなたは今',y3,'歳ですね。' );
readln
end.

もどる