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

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

var   i:integer;   min:real;   a:array[1..3]of real;beginfor 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.