Рассуждение, которое построено в точности по данной схеме и обладает свойством: в нем все посылки истинны, а вывод ложен.

Немного теории:
Индуктивное умозаключение - это умозаключение, в основе которого не лежит логический закон и в котором истинность посылок не гарантирует истинности выводимого из них заключения.

Например:
Железо - твердое тело,
Алюминий, медь, свинец - твердые тела, следовательно все металлы - твердые тела.

А как -же ртуть?

Формат вывода - это двоеточие, после которого следует целое число или выражение.

Это число или выражение задает ширину поля вывода, то есть количество позиций, отводимых под выводимое значение.

Для целых чисел формат вывода имеет вид:

число:ширина

(например i:4)

где число - выводимое значение, а ширина - количество позиций, которые займёт это значение (включая одну позицию для знака числа + или -) Если число имеет больше цифр, чем указывает ширина, то формат вывода игнорируется. Усли меньше - то выводимый текст дополняется слева пробелами до нужной ширины (выводимое значение выравнивается по правому краю).

 

Для вещественных чисел формат вывода имеет вид:

число:ширина:знаки,

(например i:4:5)

где ширина -  количество позиций, которые займёт значение (включая цифры после точки, одну позицию для точки и одну позицию для знака числа + или -), а знаки - количество цифр после точки.

Аналогично, если ширина меньше чем нужно для вывода, то формат вывода игнорируется.

 

 

 

Program Atatushka1;
uses crt;
var
  M:Integer;
begin
  writeln('');
  writeln('*    Мы рады приветствовать вас       *');
  writeln('*         в нашем ресторане           *');
  writeln('*         A T A T U S H K A           *');
  writeln('*               ! ! !                 *');
  writeln('');
  writeln();
  writeln('');
  writeln('*              М Е Н Ю :              *');
  writeln('*  1. Первое                          *');
  writeln('*  2. Второе                          *');
  writeln('*  3. Третье                          *');
  writeln('*                                     *');
  writeln('');
  writeln();
  writeln('Введите номер желаемого блюда:');
  readln(M);
  writeln();
  if m=1 then
      writeln('Получите суп')
    else
      if m=2 then
          writeln('Получите картошку')
        else
          if m=3 then
              writeln('Получите компот')
            else
              writeln('Оставайтесь голодным');
end.

Program Atatushka2;
uses crt;
var
  M:Integer;
begin
  writeln('');
  writeln('*    Мы рады приветствовать вас       *');
  writeln('*         в нашем ресторане           *');
  writeln('*         A T A T U S H K A           *');
  writeln('*               ! ! !                 *');
  writeln('');
  writeln();
  writeln('');
  writeln('*              М Е Н Ю :              *');
  writeln('*  1. Первое                          *');
  writeln('*  2. Второе                          *');
  writeln('*  3. Третье                          *');
  writeln('*                                     *');
  writeln('');
  writeln();
  writeln('Введите номер желаемого блюда:');
  readln(M);
  writeln();
  case m of
    1: writeln('Получите суп');
    2: writeln('Получите картошку');
    3: writeln('Получите компот');
    else writeln('Оставайтесь голодным');
  end;
end.