a)

program TenCuaMinh;
var
  i: integer;
begin
  for i := 1 to 10 do
    writeln('Tên của mình là: <tên>');
end.

b)

program MangSoNguyen;
var
  M: array[1..100] of integer;
begin
end.

program UocChungLonNhat;
var
  a, b: integer;

function UCLN(a, b: integer): integer;
begin
  if b = 0 then
    UCLN := a
  else
    UCLN := UCLN(b, a mod b);
end;

begin
  write('Nhập số nguyên dương a: ');
  readln(a);
  write('Nhập số nguyên dương b: ');
  readln(b);

  writeln('UCLN của ', a, ' và ', b, ' là ', UCLN(a, b));
end.

Có cái nịt thôi

program TimSoLonNhatVaDemSoAm;
var
  N, i, max, dem: integer;
  a: array[1..100] of integer;
begin
  writeln('Nhap so ptu cua day: ');
  readln(N);
  for i := 1 to N do
  begin
    write('Nhap ptu thu ', i, ': ');
    readln(a[i]);
  end;
  max := a[1];
  for i := 2 to N do
  begin
    if a[i] > max then
      max := a[i];
  end;
  writeln('So lon nhat trong day la: ', max);
  dem := 0;
  for i := 1 to N do
  begin
    if a[i] < 0 then
      dem := dem + 1;
  end;
  writeln('So ptu am trong day la: ', dem);
end.

*Đầu tiên bạn nha không phải lần đầu.

Program HOC24;

var i: byte;

t: integer;

begin

t:=0;

for i:= 1 to 200 do t:=t+i;

write('Tong 200 so nguyen dau tien la: ',t);

readln

end.

rất dễ, dễ, khó, rất khó

RẤT DỄ, DỄ, KHÓ, RẤT KHÓ

Program HOC24;

var n: integer;

t: longint;

begin

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

t:=1;

for i:=1 to n do t:=t*n;

write('5^',n,' = ',t);

readln

end.