program ctdt;
uses crt;
var i,tong:integer;
(*-----------------------*)
begin
clrscr;
tong:=0;i:=0;

while tong<=100 do
begin
i:=i+1;
tong:=tong+i;
end;

readln;
end.

min max va mot so bien khac ban nho khai bao nha

program ctdt;
uses crt;
type mang=array[1..100]of integer;
var n,i,j:integer;
a:mang;
(*----------------------------*)
begin
readln(N);
for i:=1 to n do
readln(a[i]);
(*----------------------------*)
{tim min}
min:=a[1];
for i:=2 to n do
if a[i]<min then
min:=a[i];
writeln(min);
(*----------------------------*)
{tim max}
max:=a[1];
for i:=2 to n do
if a[i]>max then
max:=a[i];
writeln(max);
(*----------------------------*)
{sap xep tang dan}
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then
begin
tam:=a[i];
a[i]:=a[j];
a[j]:=tam;
end;
(*----------------------------*)
{sap xep giam dan chi can doi dau o lenh if}

for i:=1 to n do
write(a[i],' ');
readln;
end.

type mang=array[1..20] of integer;
var a:mang;
i,n,s:integer;
begin
clrscr;
readln(N);
for i:=1 to n do
readln(a[i]);

{in theo chieu nguoc lai}
for i:=n downto 1 do
write(a[i],' ');

writeln();

{tinh va in tong cac phan tu o vi tri le}
s:=0;
for i:=1 to n do
if i mod 2 <>0 then s:=s+a[i];
writeln(s);
readln;
end.

program ctdt;
uses crt;
type mang=array[1..10]of integer;
var a,b,min,x,y,i,j,tam:integer;
t,t1:mang;
(*------------------------*)
BEGIN
clrscr;
(*cau a*)
write('nhap 2 so:');readln(a,b);
if a>b then writeln(a,' lon hon ',b);
if a=b then writeln(a,' bang ',b);
if a<b then writeln(a,' nho thua ,b);
(*cau b*)
for i:=1 to 4 do {dua 4 so vao 1 mang}
begin
write(so thu ',i,' :');readln(t[i]);
end;
min:=t[1];
for i:=2 to 4 do
if t[i]<min then min:=t[i];
writeln('so nho nhat trong bon so:',min);
(*cau c*)
write('nhap hai so x,y:');readln(x,y);
if x>y then
begin
tam:=x;
x:=y;
y:=tam;
end;
(*cau d*)
for i:=1 to 3 do {dua 3 so vao mot mang}
begin
write(' so thu ',i,': ');readln(t1[i]);
end;

for i:=1 to 3-1 do
for j:=i+1 to 3 do
if t1[j]>t1[i] then
begin
tam:=t1[j];
t1[j]:=t1[i];
t1[i]:=tam;
end;
for i:=1 to 3 do
write(t1[i]);

readln;
end.

bai nay con vai loi sai nho

ban nen chay tung cau mot va khoa cac cau con lai bang lenh {...}

program ctdt;
uses crt;
type mang=array[1..4]of integer;
var a,b,c,d,i,max:integer;
t:mang;

(*-----------------------*)
BEGIN
clrscr;
{vi co 4 so nen ta dua 4 so do vao mot mang}
for i:=1 to 4 do
begin
write('so thu ',i,' :');readln(t[i]);
end;
max:=t[1];
for i:=2 to 4 do
if t[i]>max then max:=t[i];
write('gia tri lon nhat: ',max);
readln;
end.

program ctdt;
uses crt;
type mang=array[1..4]of integer;
var a,b,c,d,i,max:integer;
t:mang;

(*-----------------------*)
BEGIN
clrscr;
{vi co 4 so nen ta dua 4 so do vao mot mang}
for i:=1 to 4 do
begin
write('so thu ',i,' :');readln(t[i]);
end;
max:=t[1];
for i:=2 to 4 do
if t[i]>=max then max:=t[i];
write('gia tri lon nhat: ',max);
readln;
end.

program ctdt;
uses crt;
var s1,s2:string;
dem,i,j:integer;
(*--------------------*)
BEGIN
clrscr;
write('nhap ptu1: ');readln(s1);
write('nhap ptu2: ');readln(s2);

{cach1:
dem:=0;
while i<=length(s1) do
begin
while j<=length(s2) do
if s1[i]=s2[j] then
begin
dem:=dem+1;
break;
end
else j:=j+1;
i:=i+1;
end;}

{cach 2}
dem:=0;
for i:=1 to length(s1) do
begin
for j:=1 to length(s2) do
if s1[i]=s2[j] then
begin
dem:=dem+1;
end;
end;

if dem=length(s1) then
write('hai ptu ,'s1,' , ',s2,' bao gom ki tu cua nhau')
else write('hai ptu ,'s1,' , ',s2,' khong bao gom ki tu cua nhau');
readln
end.