Составить блок-схему вычисления стоимости покупки с учетом скидки: при покупке товара на сумму больше 500 руб. предоставляется скидка 10 %. В дан уже составленный алгоритм, по нему составить блок-схему. Алгоритм 1. Ввод чисел a, b 2. Вычисление стоимости покупки S=a*b 3. Проверка условия: Если S>500, то S=S*0.9 4. Вывод S 5. Конец

В них он высмеивал такие человеческие изъяны, как лицемерие, рабское поклонение, задабривание к начальству, грубость, необразованность, нахальство, отсутствие чувства собственного достоинства. 
Полицейский надзиратель Очумелов, главный герой рассказа А. П. Чехова «Хамелеон» — воплощение готовности унижаться перед более сильными и могущественными. И он, и городовой Хрюкин, и толпа обывателей изменяют свое поведение в зависимости от обстоятельств, защищая пострадавшего, когда думают, что собака кого-то из простых людей, и осуждают и высмеивают, узнав, что собачка «генеральская» . 
Полицейский надзиратель к тому же груб и необразован. Об этом свидетельствует его язык: «Почему здесь? Это ты зачем палец?. . Кто кричал? » Он занимается еще и вымогательством («За ним ступает рыжий городовой с решетом, доверху полным конфискованного крыжовника») . 
В рассказе «Толстый и тонкий» изображается случайная встреча на вокзале двух друзей детства. Никудышный чиновник, «тонкий» Порфирий, как только узнал, что его давний гимназический товарищ дослужился до тайного советника, начинает унижаться перед ним так, что того аж «затошнило» . Подобным чином ведут себя и члены семьи «тонкого» — жена и сын. 
Рассказы Антона Павловича Чехова очень коротки, но вместительны. Писатель умеет коротким эпизодом, метким словом изобразить широкую картину жизни. Причем, он сам не делает выводов, не вмешивается с комментариями, но читатели хорошо понимают, какой недостойный имеет вид человек-хамелеон, подхалим и лицемер.

Var
  n,d10,d:integer;
begin
  Write('Введите двухзначное число: '); Readln(n);
  d10:=n div 10; d:=n mod 10;
  if ((d10=1) or (d=1)) then begin
    Write('В число входит цифра 1');
    if ((d10=7) or (d=7)) then Writeln(' и цифра 7')
    else Writeln
  end
  else
    if ((d10=7) or (d=7)) then Writeln('В число входит цифра 7')
    else Writeln('В число не входят цифры 1 и 7')
end.

Примеры работы программы:
Введите двухзначное число: 37
В число входит цифра 7

Введите двухзначное число: 15
В число входит цифра 1

Введите двухзначное число: 71
В число входит цифра 1 и цифра 7

Введите двухзначное число: 28
В число не входят цифры 1 и 7