//xin loi ban minh khong biet viet Pascal :(

#include <iostream>
using namespace std;
int main()
{
    int a[10];
    for (int i = 1; i <= 10; i++){
        cin >> a[i];
    }
    int min = a[1];
    for (int i = 1; i <= 10; i++){
        if (min > a[i]){
            min = a[i];
        }
    }
    cout << min;
    return 0;
}

//c++

$#FWC$

program FWC;
uses crt;
var n,i,min: integer;
    a: array[1..1000] of integer;
begin clrscr;
for i:=1 to 10 do
begin
write('Nhap phan tu thu ',i,': '); readln(a[i]);
end;
min:=a[1];
for i:=1 to 10 do
if a[i]<min then min:=a[i];
writeln('---------------------');
writeln('Gia tri nho nhat la: ',min);
readln end.
//FIFAWorldCup