Написать программу на паскале: У юного фермера Тимы 5 кроликов. Определите минимальный вес кроликов(вес каждого задать произвольно)
var a: array [1..5] of real;
i: integer;
min: real;
begin
min:=1000;
for i:=1 to 5 do begin
readln(a[i]);
if a[i]
end;
writeln('Минимальный вес равен ',min);
end.