Информатика, 9 класс паскаль. ! в эвм поступаю данные о количестве молока полученного от каждой из трех коров за сутки. выбрать и написать наименьшее количество. ответ. например. должен появиться в виде (21- наименьшее)

Program q;var a,max,i:integer;begin     max:=30000;     for i:=1 to 3 do     begin     readln(a);         if a<max then         begin            max:=a;         end     end;
writeln(max,'-ìèíèìàëüíîå');end.