Viết chương trình (sử dụng chương trình con): Nhập vào 3 số nguyên a,b,c. In ra màn hình số nhỏ nhất trong 3 số đó. Hướng dẫn: Dựa vào ví dụ 2 trang 102 sgk tin 11

Program HOIDAP247                                                                                                                        var a,b,c: integer;

function min(x,y: integer): integer;

var min1: integer;

begin

min1:=x;

if min1<y then min1:=y;

min:=min1;

end;

begin

write('Nhap a: '); readln(a);

write('Nhap b: '); readln(b);

write('Nhap c: '); readln(c);

write('Gia tri nho nhat trong 3 so la : ',min(min(a,b),c));

readln

end

program sksk;

uses crt;

var a, b, c, min : integer;

begin

clrscr;

write('nhap so nguyen thu nhat :');readln(a);

write('nhap so nguyen thu hai :');readln(b);

write('nhap so nguyen thu ba :');readln(c);

min := a;

if b < min then min := b;

if c < min then min := c;

writeln('so nho nhat trong ba so la :', min);

readln

end.