program mathnote;
uses crt;

{--------------------------------------------------------------------------

program description
                        by 

This program will ask the user his name and age, waits for 3 seconds, then
prints out what his name in dog years is.
--------------------------------------------------------------------------}


VAR
name:string;
age:integer;
dog:integer;

begin

clrscr;

textcolor (green);

write ('Hello, what''s your name? --->  ');
readln (name);

writeln;
write ('How old are you? --->  ');
readln (age);

textcolor (blue);
writeln;
writeln;
writeln ('PROCESSING') ;
delay (3000);

dog := age / 7;

textcolor (yellow);

writeln;
writeln;
writeln ('-------------------------------------------------------------');
writeln;

textcolor (red + blink);

writeln ('You are ',dog,' years old in dog years, ',name);

textcolor (yellow);

writeln;
writeln ('-------------------------------------------------------------');


readln;

end.