Program Jury_Service;
{Program written by Philip Smith. Input a persons age and output if they are the correct age for jury service.}
Uses WinCrt;
Var Age: Integer;
Begin
{capture data}
         Write ('Please enter your age ')
         Readln(Age);
{decide if correct age}
        If (Age >=18) and (Age <=70)
           Then
               Begin
                    Writeln('You are eligible for jury service')
               end
            Else
                Begin
                     Writeln('You are not eligible for jury service')
                end;
{pause and close}

       Writeln('Program over, press any key to exit');
       Readln;
       DoneWinCrt;
end.