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

Это легко пошевели мозгами всё получится 100%

Var
   i:integer;
   min:real;
   a:array[1..3]of real;
begin
for i:=1 to 3 do
  begin
    writeln(i,' число:');
    readln(a[i]);
    if i=1 then min:=a[1];
    if a[i]<min then min:=a[i]
    end;
writeln('Наименьшее: ',min)
end.