TIGIA PASCAL

var dola,tg,vnd:longint;
begin
    assign(input,’tigia.inp’);reset(input);
    assign(output,’tigia.out’);rewrite(output);
    read(dola,tg);
    vnd:=dola*tg;
    write('Tien vnd:',vnd);
end.