Составить алгоритм нахождения минимального из 3 чисел

program z1;

var a: array [1..3] of integer;

i, min: integer;

begin

for i:=1 to 3 do

begin

writeln('Введите ', i, 'ячейку: ');

readln(a[i]);

end;

min:= a[1];

for i:=1 to 3 do if a[i] < min then min:= a[i];

write('Минимальное число равно ', min);

end.

Объяснение: