Program tangdan;

Uses crt;

Var n,i,j,k,t:interger;

A: array[1..100] of longint;

Begin

Clrscr;

Write('Nhap do dai day: '); readln(n);

For i:= 1 to n do 

Begin

 Write('A[',i,']= ');

 Readln(A[i]);

End;

For i:=1 to n-1 do
For j:=i+1 to n do
If A[i]>A[j] then
Begin
t:=A[i];
A[i]:=A[j];
A[j]:=t;

End;

Write('Day sau khi duoc sap xep theo thu tu tang dan la: ',A[i]:3);

End.

program trungbinh;

uses crt;

var n,i: integer;

      s:real;

      A: array[1..1000] of integer;

begin

clrscr;

write('Nhap do dai day: '); readln(n);

writeln('Nhap gia tri cua day: ');

S:=0;

for i:=1 to n do

begin

 write('A[',i,']= ');

readln(A[i]);

S:=S+A[i];

end;

S:=S/n;

write('Trung binh cua cac so cua day do la: ',S);

readln;

end.

ý chị là giờ màn hình máy tính không còn hình của app nào cả ạ?
nếu vậy chị có thể làm thủ công là bấm Win trên bàn phím rồi nhấn giữ chuột trái vào app muốn đưa ra màn hình rồi kéo nó ra thử ạ
hình như cái này cũng có trên mạng á chị :33
em chỉ biết vậy thôi, nếu không giúp được thì em xin lỗi ạ '^'

program tinh;

uses crt;

var S,i,n:integer;

      A: real;

begin

clrscr;

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

i:=10;

S:=0;

for i:10 to n do

begin

S:=S+i;

i:=i+5;

end;

S:=S+n; 

A:=S/3;

write('Ket qua cua S la: ',S);

writeln;

write('Ket qua cua A la: ',A:1:1);

readln;

end.

program hinhvuong;

uses crt;

var a,s:real;

begin

clrscr;

write('Nhap do dai canh a: ');

readln(a);

if (a>0) then

begin

 s:=a*a;

 write('Dien tich hinh vuong do la: ',s:1:2);

end;

readln;

end.

program b1;

uses crt;

var a,b,s:real;

begin

clrscr;

writeln('Nhap hai so a va b: ');

readln(a,b);

s:=a+b;

write('Tong cua hai so a va b la: ',s:1:1);

readln;

end.

P/S: phần lưu lẫn đặt tên người dùng nào cũng đều làm được.
+ Chọn Save as ở phần File phía góc trái trên cùng rồi đặt tên.

Program chunhat;

uses crt;

var a,b,p,s:real;

begin

clrscr;

writeln('Nhap chieu dai va rong cua hinh chu nhat: ');

readln(a,b);

s:=a*b;
p:=(a+b)*2;

write('Chu vi hinh chu nhat la: ', p:1:2);

writeln;

write('Dien tich hinh chu nhat la: ', s:1:2);

readln;

end.
 

Kết quả: