Если вас не вдохновляет секс в туалете самолета и к тому же предстоит ночной перелет, вы вполне можете получить удовольствие, не сходя со своих мест. Дождитесь, пока остальные пассажиры уснут, а в салоне приглушат свет. А затем займитесь оральным сексом или взаимной мастурбацией в своих креслах под пледом. Внимание! Во время зон турбулентности оральные ласки лучше прекратить: вы ведь не хотите покалечить друг друга!
var
s1,z1,z2,z3,k1,t1,reply,resp: String;
h: Integer;
resp=reply+#13#10+'1'
z1 := ''
z2 := ''
z3 := ''
REPEAT
s1 := ReadLn(resp);
l := length(s1);
if h > 10 then
t1 := Copy(s1, 1, 14);
if pos('Set-Cookie=PHP',t1)0 then
begin
z1 := z+Copy(s1, 12, h-
end;
if pos('Set-Cookie=PAS',t1)0 then
begin
z2 := z+Copy(s1, 12, h-66)
end;
if pos('Set-Cookie=UID',t1)0 then
begin
z3 := z+Copy(s1, 12, h-66)
end;
UNTIL h < 11;