uses crt;

Var i,n,dem:integer;

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

Begin

clrscr;

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

dem:=0;

for i:= 1 to n do

  Begin

  write('So thu ',i,' = ');

  readln(a[i]);

  if a[i] mod 2 = 0 then inc(dem);

  end;

Writeln('Day so co ',dem,' so chan');

readln;

End.

uses crt;

Var i,n,dem:integer;

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

Begin

clrscr;

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

dem:=0;

for i:= 1 to n do

  Begin

  write('So thu ',i,' = ');

  readln(a[i]);

  if a[i] mod 2 = 0 then inc(dem);

  end;

Writeln('Day so co ',dem,' so chan');

readln;

End.

uses crt;

Var i,n,dem:integer;

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

Begin

clrscr;

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

dem:=0;

for i:= 1 to n do

  Begin

  write('So thu ',i,' = ');

  readln(a[i]);

  if a[i] mod 2 = 0 then inc(dem);

  end;

Writeln('Day so co ',dem,' so chan');

readln;

End.

Uses crt;

Var i,n,x:integer;

      s:array[1..10000] of integer;

Begin

clrscr;

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

for i:= 1 to n do

  begin

  write('So thu ',i,' = ');

  readln(s[i]);

  End;

Writeln('Cac so chinh phuong co trong day:');

for i:= 1 to n do 

  Begin

  x:=trunc(sqrt(s[i]));

  if sqr(x) = s[i] then write(s[i],'  ');

  end;

Readln;

End.

Nộp bài làm sao cho đúng v :<

Mình nộp r bạn xem thử

Mình làm trong pascal xong mình copy paste qua phần nộp bài của mình được không

Uses crt;

var x:char;

begin

clrscr;

readln(x);

write(chr(ord(x)-32));

readln;

end.