#include<stdio.h>

#include<conio.h>

using namespace std;

void nhapmang(int a[], int &n)

{ printf("nhap so phan tu :" ); 

scanf("%d",&n);

for(int i=0;i<n;i++) 

{ printf(" phan tu thu %d :",i);   

scanf("%d",&a[i]);

Bài 1: 

var a: array [1..100] of integer; b,i,kq: integer; 

begin

write('Nhap so luong phan tu: '); readln(a);

for i:=1 to b do

begin

write('Nhap gia tri cua phan tu thu ',i,':'); 

readln(a[i]);

end;

for i:=1 to b do

if (a[i]>0) and (a[i] mod 2 = 0) then kq:=kq+a[i];

write('Ket qua: ',kq);

end.

Bài 2:

var a,b,kq: string;

begin 

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

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

kq:=insert(a,b,b.length);

write('Ket qua: ',kq);

end;

Bài 3:

var a,b,kqa,kqb,vtt:  string;

begin

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

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

kqa:=delete(a,4,5);

write('Ket qua cau a: ',kqa);

{Em dang bi bi cau b, sau nay em se lam sau}

end;