Bài 1:
program bai1;
uses crt;
var s1,s2:string;
i:byte;
begin
clrscr;
readln(s1);
for i:=1 to length(s1) do
begin
if not((s1[i]>='0') and (s1[i]<='9')) then s2:=s2+s1[i];
end;
writeln(s2);
readln;
end.
bài 2:
program bai2;
uses crt;
var ma,ten,tg:string;
i:byte;
trang:word;
tongsotrang:longword;
begin
clrscr;
for i:=1 to 50 do
begin
readln(ma);
readln(ten);
readln(trang);
readln(tg);
tongsotrang:=tongsotrang+trang;
end;
writeln(tongsotrang);
readln;
end.