program znaija;
var
n:string;
k:string;
s:string;
begin
write('Введите название фильма : ');
readln(n);
writeln('Введите название кинотеатра : ');
readln(k);
writeln('Введите время : ');
readln(s);
writeln('Билет на ', n , ' в ', k , ' на ', s , ' забронирован. ');
end.