a) Xuất ra màn hình ( Pascal):

-Họ và tên học sinh

-Lớp

uses crt;
var lop,ho_ten: string;
begin
clrscr;
write('nhap ten: '); readln(ho_ten);
write('nhap lop: '); readln(lop);
writeln('ho ten: ',ho_ten);
writeln('lop: ',lop);
readln;
end.

b) nhập vào mảng các số thực

uses crt;
var a: array [1..1000] of real;
i,n: integer;
begin
clrscr;
write('nhap so luong phan tu: '); readln(n);
for i:=1 to n do
begin
write('nhap phan tu thu ',i,': '); readln(a[i]);
end;
readln;
end.

c)xuất ra màn hình các phần tử chẵn

uses crt;
var a: array [1..1000] of integer;
i,n: integer;
begin
clrscr;
write('nhap so luong phan tu: '); readln(n);
for i:=1 to n do
begin
write('nhap phan tu thu ',i,': '); readln(a[i]);
end;
write('cac phan tu chan trong day la:');
for i:=1 to n do
if a[i] mod 2 = 0 then write(a[i]:4);
readln;
end.