Program HOC24;

var p: longint;

i,x: integer;

Begin

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

p:=1;

for i:=3 to x do if i mod 2=1 then p:=p*i;

write('P = ',p);

readln

end.

program TimBoi4ChuSo;
var
  n, i: integer;
begin
  repeat
    writeln('Nhap vao so nguyen n (2<n<100): ');
    readln(n);
  until (n > 2) and (n < 100);
  
  writeln('Cac boi cua ', n, ' co 4 chu so la: ');
  for i := 1000 to 9999 do
  begin
    if i mod n = 0 then
      writeln(i);
  end;
end.

program TinhTongTu1DenN;
var
  N, i, tong: integer;
begin
  write('Nhap so N: ');
  readln(N);
  
 
  tong := 0;
  for i := 1 to N do
    tong := tong + i;
  
  writeln('Tong cac so tu 1 den ', N, ' la: ', tong);
  readln; 
end.

N = int(input("Nhập số tự nhiên N: "))
tong = 0
for i in range(1, N+1):
    tong += i
print("Tổng các số từ 1 đến ", N, " là: ", tong)

program ChuyenXauSangChuThuong;
var
  str: string; 
  i: integer; 

begin
  write('Nhap mot xau ky tu: ');
  readln(str); 
  for i := 1 to Length(str) do
    str[i] := LowerCase(str[i]); 
  writeln('Xau ky tu chuyen thanh chu thuong la: ', str); 
end.

program Tong_Binh_Phuong_So_Chan;

uses crt;

var n, i, sum: integer;

begin

     clrscr;

     write('Nhap vao so nguyen n (6 < n < 30): ');

     readln(n);

     sum := 0;

     for i := 2 to n do

          if i mod 2 = 0 then

               sum := sum + i * i;

     writeln('Tong binh phuong cac so chan tu 1 den ', n, ' la: ', sum);

     readln;

end.

program DemSoLanXuatHien;
var
  a: array[1..100] of Integer; // khai báo mảng a với 100 ptu
  n, x, i, count: Integer; 
begin
  readln(n);
  for i := 1 to n do
    readln(a[i]);
  readln(x);
  count := 0;
  for i := 1 to n do
    if a[i] = x then
      count := count + 1;
  writeln(count);
end.

cảm ơn bạn nhiều nha nha 

program HienThiA;
var
  i: Integer;
begin
  i := 1;
  while i <= 10 do
  begin
    writeln('A');
    i := i + 1;
  end;
  readln;
end.

pascal nhỉ?

Vg thank

Add fb Ánh Ngọc (súnn) ib