Написать программу на увеличение в 3 раза меньшего из 3 введенных чисел

var a:array [1..3] of integer;i,m,i1:integer;beginfor i:=1 to 3 doreadln(a[i]);m:=a[1];for i:=2 to 3 doif m<a[i] thenbeginm:=a[i];i1:=i;end;a[i1]:=a[i1]*3;for i:=1 to 3 dowrite(a[i],' ');end.