Информатика. тема: оператор ветвления на паскале из 4 величин определить наименьшее решать типо: program begin readln и т.д.

Program z1;
var i,n:integer;
a:array [1..100] of integer;
begin
readln (n);
for i:= 1 to 4 do
begin
readln (A[I] );
end;
for i := 1 to 4 do
begin
If  A [i] > n then writeln (A [i]);
end;readln;end.