các bạn ơi,xem dùm mình bài pascal này:
program bt0;
uses crt;
var a,b,k,max,min,d,i,z:longint;
begin
clrscr;
write('so luong:');
readln(a);
repeat
k:=k+1;
write('nhap so:');
readln(b);
if i<b then z:=i;
if max<=b then max:=b;
if min<max then d:=min;
min:=b...