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

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