Олимпиадные задачи

7 гномов                                                                               (10 баллов)

Решение представлено на языке FREE PASCAL:

var a,c,i:longint;
Begin
c:=maxlongint;
For i:=1 to 7 do
begin
read(a);
if a<c then c:=a;
end;
write(c);
end.