Program Sequent2;
Const	
	verb = 'are';
	Str2 = 'Turbo Pascal';
Var	
	Str1 : String[25];
	input1, input2 : String[10];
	Chr, Blank : Char;
	Age1, Age2 : Integer;
	Avg : Real;
	Name : String[35];
Begin
	Write('Enter  your  first  name : ');
	Readln(input1);
	Write('Enter another first name : ');
	Readln(input2);
	Writeln('Hello ', input1, ' and ', input2);
	Write('How old are you ', input1, ' : ');
	Readln(Age1);
	Write('And you ', input2, ' : ');
	Readln(Age2);
	Age1 := Age1+Age2;
	Avg := Age1/2;
	Writeln('Average age of you is ', Avg:5:2);
	Write('*************** Press any key to continue ***************');
	Readln;
	Str1 := 'Learning';
	Chr := 'A';
	Blabk := ' ';
	Name := input1+Blank+'and'+Blank+input2+Blank+verb;
	Str1 := Str1+Blank+Str2;
	Writeln(Name, Blank,Str1);
	Writeln('Good  Luck !!! Ha..Ha...');
	Readln;
End.