tinhtien

uses crt;
var
    n,i:integer;
    sum:longint;
    Ten:array[1..100] of string;
    Don_gia:array[1..100] of longint;
    So_luong:array[1..100] of integer;


begin
    writeln('Nhap vao so luong mat hang can tinh'); readln(n);
    sum:=0;
    for i:=1 to n do
        begin
            writeln('Nhap vao ten san pham thu ',i);readln(Ten[i]);
            writeln('Nhap vao don gia san pham thu ',i); readln(Don_gia[i]);
            writeln('Nhap vao so luong san pham thu ',i); readln(So_luong[i]);
            sum:=sum+Don_gia[i]*So_luong[i];
        end;
    clrscr;
    writeln('STT   Ten              Don gia   So luong  Tong');
    for i:=1 to n do
            begin
                write(' ',i);
                GotoXY(8,WHEREY);
                write(Ten[i]);
                GotoXY(25,WHEREY);
                write(Don_gia[i]);
                GotoXY(36,WHEREY);
                write(So_luong[i]);
                GotoXY(44,WHEREY);
                write(So_luong[i]*Don_gia[i]);
                writeln(' ');
            end;
    GotoXY(34,WHEREY);
    writeln('Tong cong ',sum);
    readln
end.