uses crt;

begin

clrscr;

write('CHAO NAM HOC MOI');

readln;

end.

program tom;

uses crt;

var a,b,c: integer;

begin

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

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

c:=a div b;

write(c);

readln;

end.

program vdd;

uses crt;

var i,n: integer;

begin

clrscr;

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

for i:=1 to n do if i mod 2=1 then write(i,';');

readln

end.

Program dung;

uses crt;

var s,a,b: real;

begin

clrscr;

write('Nhap a; b : '); readln(a,b);

s:=(a*b)/2;

writeln('Dien tich tam giac vuong la: ',s:1:2);

readln;

end.

program hoc24;

uses crt;

begin

clrscr;

begin

writeln('+ + + + + + + + + + + + +')

writeln('+        Vo Duc Dung      +');

write('+ + + + + + + + + + + + +')

readln;

end.

program dung;

uses crt;

var x: integer'

t: real;

begin

clrscr;

write('x= '); readln(x);

t:=(5*x-7)+sqrt(3*x*x+7*x-6);

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

write('Ket qua: ',t);

readln;

end.

program dung;

uses crt;

var d,s: real;

begin

clrscr;

write('Nhap ban kinh: '); readln(d);

s:=(d/2)*(d/2)*pi;

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

readln;

end.

program : khai báo tên chương trình

uses: khai báo thư viện

begin : bắt đầu chương trình

end: kết thúc chương trình

var : khai báo biến

1

input: n và dãy a1,a2,a3,...,an

output: số lớn nhất trong dãy a1,a2,...,an

2.

b1: nhập n và gãy a1,a2,...,an

b2: a1<-max; i<-2;

b3: nếu i>n thì kết thúc và in kết quả ra màn hình

b4: nếu ai>max thì max:=a[i];

b5: i<-i+1 quay lại b3

uses crt;

var i,n,n,d: integer;

t: real;

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

begin

clrscr;

readln(n);

for i:=1 to n do 

readln(a[i]);

for i:=1 to n do

if a[i] <0 then

begin

d:=d+1;

t:=t+a[i];

end;

writeln('Tong la:',t/n:2:4);

write('Co tat ca so so am la:',d);

readln;

end.