Bài 1:

Program BTT;
Uses crt;
Var a,b,c,min: longint;
Begin
        Clrscr;
        Write('Nhap a,b,c: '); Readln(a,b,c);
        min:=a;
        If b<min then min:=b;
        If c<min then min:=c;
        Write('GTNN la: ',min);
        Readln
End.

Bài 2:

Program BTT;
Uses crt;
Var kWh,tt: qword;
Begin
        Clrscr;
        Write('Nhap so kWh: '); Readln(kWh);
        If kWh<=100 then tt:=kWh*500
        Else If kWh>100 then tt:=50000+(kWh-100)*1000;
        Write('Tien: ',tt);
        Readln
End.

Bài 1 :

uses crt;

var a, b, c, min : integer;

begin

clrscr;

write('Nhap ba so a, b, c : '); readln(a, b, c);

min := c;

if b < min then min := b;

if a < min then min := a;

write('So nho nhat : ', min);

readln

end.

Bài 2 :

uses crt;

var s, t : longint;

begin

clrscr;

write('Nhap so dien tieu thu : '); readln(s);

if s <= 100 then t := 500 * s

else t := 100 * 500 + (s - 100) * 1000;

writeln('Tien phai tra : ', t);

readln

end.