Помогите пожалуйста решить!!!!

Во дворце 40 залов. Известны длина, ширина и высота каждого зала. Вычислить площадь пола и объем каждого зала.

Program 1;

Var i, dlina, shirina, visota, N, S, V : Integer;BEGINWriteLn(’Введите число залов‘);ReadLn (N);for i:=1 to N do beginWriteLn(’Введите длину,ширину и высоту зала‘);ReadLn (dlina, shirina, visota);S:=dlina*shirina;V:=S*visota; WriteLn(‘Площадь пола=’,S,’ Объем зала=‘,V);endEND.

если это 8-9 класс, то должно быть так)))