3.4.1. Условный оператор

Пример 1. Запишем на языке Паскаль рассмотренный в п. 2.4.2 (пример 8) алгоритм определения принадлежности точки х отрезку [а, b].

program n_9;
  var х, a, b: real;
begin
  writeln ('Определение принадлежности точки отрезку');
  write ('Введите а, b>>');
  readln (а, b) ;
  write ('Введите х»');
  readln (х);
  if (х>=а) and (x<=b) then
        writeln ('Точка принадлежит отрезку')
  else writeln ('Точка не принадлежит отрезку')
end.

Пример 2. Воспользуемся неполным условным оператором для записи на языке Паскаль рассмотренного в п. 2.4.2 (пример 9) алгоритма присваивания переменной у значения наибольшей из трёх величин а, b и с.

program n_10;
  var у, a, b, с: integer;
begin
  writeln ('Нахождение наибольшей из трёх величин');
  write ('Введите а, b, с>>');
  readln (а, b, с) ;
  у:=а;
  if (b>y) then y:=b;
  if (с>у) then у:=с;
  writeln ('у=', у)
end.

Дополните эту программу так, чтобы её выполнение приводило к присваиванию переменной у значения большей из четырёх величин а, b, с и d.