program demonstrate_strings;
var FirstString,SecondString:string;
begin

write('please give me the first string ');
readln(FirstString);
write('please give me the second string ');
readln(SecondString);

write('the second string you gave me is ');
write(SecondString);
writeln;
write('the first string you gave me is ');
write(FirstString);
writeln;

end.