Найти максимальное число из 3 переменных - Pascal ABC

Формулировка задачи:

как найти в паскале максимальное число из 3 переменных

Решение задачи: «Найти максимальное число из 3 переменных»

Листинг программы

var i,n,max:integer;
x:array[1..25]of integer;
begin
n:=3;
for i:=1 to n do read(x[i]);
max:=x[1];
for i:=2 to n do 
if x[i]>max then max:=x[i];
write(max);
end.

Объяснение кода листинга программы

В данном коде используется язык программирования Pascal ABC.

Переменные:
- i: индекс цикла от 1 до 25 (в данном случае)
- n: количество переменных, равное 3
- max: переменная для хранения максимального значения
- x: массив из 25 элементов, каждый из которых является целым числом
Инициализация переменных:
- n := 3;
- max := первое значение из массива x
Чтение значений из массива x:
- цикл for i от 1 до n выполняется 3 раза
- каждый раз значение x[i] считывается в переменную max
Обновление переменной max:
- если значение x[i] больше текущего значения max, то max обновляется
Вывод максимального значения:
- значение max выводится на экран