Данный алгоритм выбирает наибольшее из трех чисел (x, y, z) и присваивает это значение переменной m. Запишем этот алгоритм на языке Pascal:
var x, y, z, m: real;
begin { Ввод данных } readln(x, y, z);
{ Инициализация m значением x } m := x;
{ Сравнение и обновление m } if y > m then m := y; if z > m then m := z;
{ Вывод результата } writeln('Наибольшее число: ', m); end.
Для аналогичной задачи с четвертым числом w можно модифицировать алгоритм:
var x, y, z, w, m: real;
begin { Ввод данных } readln(x, y, z, w);
{ Инициализация m значением x } m := x;
{ Сравнение и обновление m } if y > m then m := y; if z > m then m := z; if w > m then m := w;
{ Вывод результата } writeln('Наибольшее число: ', m); end.