задача 13 урок 9:

У вас есть три числа (три переменные) найдите их медиану

//решение
var x, y, z: integer;

begin
  writeln('Vvedite chislo x');
  readln(x);
  writeln('Vvedite chislo y');
  readln(y);
  writeln('Vvedite chislo z');
  readln(z);
  if (((x > y) AND (x < z)) OR ((x > z) AND (x < y))) then
      writeln(x)
  else if (((y > x) AND (y < z)) OR ((y < x) AND (y > z))) then
      writeln(y)
  else
      writeln(z);
  readln();
end. 

задача 11 урок 9:

Есть программа:

задача 10 урок 9:

Есть программа:

задача 9 урок 9:

Есть программа, где стоит проверка на ввод пользователем числа 1 или числа 5:

задача 8 урок 9:

Коля набрал k баллов, Миша n баллов, а Петя d баллов в ходе соревнований. Если:
сумма баллов Коли и Миши больше 20
или произведение баллов Пети и Миши меньше 55
--то тогда вывести в консоль сообщение о том, что ничья, в противном случае вывести сообщение, что победил Коля.

задача 7 урок 9:

Пользователь вводит четыре числа, найдите из них максимальное.

задача 6 урок 9:

Пользователь вводит три числа, найдите из них максимальное.
Решите тремя способами:

С использованием логической операции and.
С вложенными блоками (без and).
Без вложенных блоков (без and) -- запомнив максимум из двух в специальной переменной.

задача 5 урок 9:

Пользователь вводит два числа, найдите из них максимальное.

var A, B: real;
begin
  writeln('vvedite chislo A: ');
  readln(A);
  writeln('vvedite chislo B: ');
  readln(B);

  if (A > B) then
      writeln(A)
  else
      writeln(B);

  readln();
end.

задача 4 урок 9:

Даны три целых числа: A, B, C. Проверить истинность высказывания: « Число A и число B больше 17, а C > 7». -- выведите "да", если истинно и "нет" если ложно.

var A, B, C: integer;
begin
  writeln('vvedite chislo A: ');
  readln(A);
  writeln('vvedite chislo B: ');
  readln(B);
  writeln('vvedite chislo C: ');
  readln(C);

  if (((A > 17) AND (B > 17)) AND (C > 7)) then
      writeln('da')
  else
      writeln('net');

  readln();
end.

задача 3 урок 9:

Даны три целых числа: A, B, C. Проверить истинность высказывания: «Число A находится между числами B и C» -- выведите "да", если истинно и "нет" если ложно.

var A, B, C: real;
begin
  writeln('vvedite chislo A: ');
  readln(A);
  writeln('vvedite chislo B: ');
  readln(B);
  writeln('vvedite chislo C: ');
  readln(C);

  if (((A > B) AND (A < C)) OR ((A > C) AND (A < B))) then
      writeln(da)
  else
      writeln(net)

  readln();
end.