uses crt;

var a: array[1..100] of integer;

      i,n,min, vt: integer;

begin

clrscr;

write ('nhap so phan tu: ');  readln (n);

for i:=1 to n do

begin

write ('nhap a[',i,']: ');   readln (a[i]);

if min>a[i] then

begin

min:=a[i];

vt:=i;

end;

end;

writeln ('phan tu nho nhat la a[',vt,']= ',a[vt]);

readln;

end.

program A01;

uses crt;

var c : char; a, b : integer;

begin

clrscr;

write('Nhap a, b = '); readln(a, b);

write('Nhap phep tinh (+, -, *,/) = '); readln(c);

if c = '+' then writeln(a ,' + ', b ,' = ', a + b)

else if c = '-' then writeln(a ,' - ', b ,' = ', a - b)

else if c = '*' then writeln(a ,' * ', b ,' = ', a * b)

else writeln(a ,' / ', b ,' = ', a / b : 2 : 2);

readln

end.