Помогите пожалуйста решить! Во дворце 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 класс, то должно быть так)