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.
Объяснение:
