Составьте программу, которая запрашивает 3 числа и определяет наименьшее из них. помогите пожалуйста.
Шапка проги writeln ('введите количество чисел'); readln (n); y:=30000; for i:=1 to n do writeln ('введи число'); readln (x); if xwriteln (x); end.