Bài 4:

uses crt;
var a,b,i,tong:longint;
begin
    clrscr;
    write('Nhap a = ');  readln(a);
    write('Nhap b = ');  readln(b);
    write('Cac so tu ',a,' den ',b,' la: ');
    tong:=0;
    for i:=a to b do
        begin
            write(i,' ');
            if i<0 then tong:=tong+i;
        end;
    writeln;
    write('Tong cac so nguyen am tu ',a,' den ',b,' la: ',tong);
    readln;
end.

Bài 5:

uses crt;
var n,i,d:integer;
    a:char;
begin
    clrscr;
    write('Tong so to: ');  readln(n);
    for i:=1 to n do
        begin
            write('To ',i,' loai: ');  readln(a);
            if a='a' then d:=d+1;
        end;
    write('Tong so tien thuong la: ',d*100000,' dong');
    readln;
end.

Câu 1:

Var a,b,dem:Int64;
      i:Longint;
 Begin
     Write('Nhap a = '); Readln(a);
     Write('Nhap b = '); Readln(b);
     Write('Cac so tu ',a,' den ',b,' la: ');
     For i:=a to b do
        Begin
             Write(i,' ');
              If i<0 then dem:=dem+i;
        End;
      Writeln;
      Write('Tong cac so nguyen am tu ',a,' den ',b,' la:',dem);
    Readln;
 End.
Câu 2:

Var S:Char;
       n,i:Longint;
       d:Int64;
 Begin
     Write('Tong so to: '); Readln(n);
     d:=0;
     For i:=1 to n do
          Begin
             Write('To ',i,' loai: '); Readln(S);
              If S ='a' then d:=d+100000;
          End;
      Write('Tong so tien thuong la: ',d);
    Readln;
 End.