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

Шапка проги
writeln ('введите количество чисел');
readln (n);
y:=30000;
for i:=1 to n do
writeln ('введи число');
readln (x);
if x<y then y:=x;
writeln (x);
end.