Bài 1:

rogram min;
uses crt;
var a, b, c, d, m : 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);
write('nhap so nguyen thu tu :');readln(d);
m := a;
if (b <  m) then m := b;
if (c <  m) then m := c;
if (d <  m) then m := d;
writeln('so be nhat trong 4 so la :', m);
readln
end.

Bài 2:

program tinh;
uses crt;
var n, i, s, k: integer;
begin
clrscr;
write('nhap so nguyen n :');readln(n);
s := 0;
k := 1;
writeln('cac so chan co trong day la :');
for i := 1 to n do
if (i mod 2 = 0) then 
begin
writeln(i);
s := s + i;
end
else 
k := k*i; 
writeln('tong so chan la :', s);
writeln('tich so le la :', k);
readln
end.
Bài 3:

program m;
uses crt;
var n, m : integer;
begin
clrscr;
write('nhap so nguyen m :');readln(m);
write('nhap so nguyen n :');readln(n);
if m >= n then writeln('hay nhap lai!')
else
begin
writeln('gia tri so nguyen m :', m);
writeln('gia tri so nguyen n :', n);
end;
readln
end.

Bài 1:

Program bai1;

Uses crt;

Var A:array[1..100] of integer;

      min,max,i:integer;

Begin

Clrscr;

For i:=1 to 4 do

  Begin

  Write('Nhap so thu ',i);

  Readln(A[i]);

  End;

min:=A[1];

max:=A[1];

For i:=1 to 4 do

  Begin

  If A[i]>max then max:=A[i];

  If A[i]<min then min:=A[i];

  End;

Writeln('So lon nhat:',max);

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

Readln

End.

Bài 2:

Program bai2:

Uses crt;

Var A:array[1..200] of integer;

      N,i,T:integer;

      S:longint;

Begin

Clrscr;

T:=0; S:=1;

Write('N='); Readln(N);

For i:=1 to N do

If (i mod 2=0) then

  Begin

  Write(i);

  T:=T+i

  End;

else S:=S*i;

Writeln('Tong cac so chan:',T);

Writeln('Tich cac so le:',S);

Readln

End.

Bài 3:

Program bai3;

Uses crt;

Var M,N: integer;

Begin

Clrscr;

Write('M='); Readln(M);

Writeln('N='); Readln(N);

If M>=N then writeln('Vui long nhap lai') 

               Else

               Begin

               Writeln('M=',M);

               Writeln('N=',N);

               End;

Readln

End.