cho dãy A gồm các số a,b,c,d là các số nguyên dương. hãy viết chương trình tìm giá trị nhỏ nhất trong dãy số đó

uses crt;
var d,a,b,i:longint;
begin
clrscr;
   write(‘a,b=’);readln(a,b);
   if a mod 10=0 then write(a,’ ‘);
   if b mod 10=0 then write(b); writeln;
   for i:=a to b do inc(d,i);
   writeln(d);
readln
end.