1) Первым здоровается тот, кто входит в помещение. При знакомстве и представлении будет уместна корректная, сдержанная улыбка. Если людей представляет кто-то третий, знакомство идет по очереди.
2) Крайне некультурно говорить о третьем лице, используя безымянные местоимения или обобщающие наименования - «он», «она», «женщина», «мужчина», «человек», «эй».
3) При встрече со знакомыми и даже малознакомыми людьми принято доброжелательно здороваться, невнятное бурчание под нос воспринимается хуже, чем отсутствие приветствия.
4) Вступать в спор по пустякам, высмеивать чужое мнение и сыпать оскорбительными остротами и колкостями в адрес других - признаки дурного тона.
5) Входя в помещение, мужчина должен снять головной убор, женщина может оставаться в шляпе. Не принято входить без стука, с незатушенной сигаретой. Мужчина всегда пропускает женщину вперед. В этом правиле есть исключения - первым из лифта, машины, других транспортных средств выходит мужчина и подаёт женщине руку, даже незнакомой.
Program Program1;
var
s,v1,v2,v3,t1,t2,t3:real;
begin
write('Введите скорость движения по равнине: ');
readln(v1);
write('Введите скорость движения в гору: ');
readln(v2);
write('Введите скорость движения под гору: ');
readln(v3);
write('Введите время движения по равнине: ');
readln(t1);
write('Введите время движения в гору: ');
readln(t2);
write('Введите время движения под гору: ');
readln(t3);
S:=t1*v1+t2*v2+t3*v3;
writeln('Путь = ',S);
end.
Program Program2;
var
s,v,v1,t1,t2:real;
begin
write('Введите скорость лодки в стоячей воде: ');
readln(v);
write('Введите скорость течения реки: ');
readln(v1);
write('Введите время движения по озеру: ');
readln(t1);
write('Введите время движения против течения реки: ');
readln(t2);
S:=t1*v+t2*(v-v1);
writeln('Путь = ',S);
end.