Составить программу на языке програмирования паскаль в группе 7 человек рост вводится с клавы выводит на экран самого ниского

Обычная задачка на минимум
сonst n=7; var i:byte; c:array[1..n] of real; min:real; begin for q:=1 to n do read(c[q]); min:=c[q]; for q:=2 to n do   if min>c[q] then min:=c[q]; write(min); end..