In this article I would like to share with you a sample program that I wrote in Pascal to check if the given age of the user is already considered as an Adult or still a minor. I am using Turbo Pascal 5.0 as my compiler in this sample program.
My mobile number here in the Philippines is 09173084360.
Sample Program Output
Program Listing
Program Age;
Uses Crt;
Var Age_User : Integer;
Begin
Clrscr;
Write('Age Checker in Pascal');
writeln;
writeln;
Write('What is your age? ');
readln(Age_User);
if (Age_User >=18) then
Begin
Writeln;
Writeln(Age_User, ' years old. You are already an Adult.');
End
else
Begin
Writeln;
Writeln(Age_User, ' years old. You are still a Minor.');
End;
Readln;
End.
