viết chương trình nhập từ bàn phím 3 số nguyên a,b,c và in ra màn hình số nhỏ nhất trong ba số đó

program ct_tinh;

uses crt;

var a,b,c:integer;

      x,y:real;

begin

 clrscr;

write('nhap so a= ');readln(a);

write('nhap so b= ');readln(b);

write('nhap so c= ');readln(c);

x:=a+b+c;

y:=(a+b)*(a+b)/c;

writeln('x= ',x);

writeln('y= ',y);

readln;

end.

uses crt;

var a,b,c: integer;

begin

clrscr;

writeln('nhap so a');readln(a);

writeln('nhap so b');readln(b);

writeln('nhap so c');readln(c);

if a<b and a<c then writeln('a la so be nhat');

if b<a and b<c then writeln('b la so be nhat');

if c<a and c<b then writeln('c la so be nhat');

readln

end.