задача по информатике! У каждой из 7 старух 7 валов, в каждом вале 7 хлебов, в кажом хлебе 7 ножей. составить программу на паскаль с циклом!!! Помогите пожалуйста

А если нужно посчитать количество всех предметов то какая программа будет?

Program ABC;vara,b,c,f,S:integer;beginwrite ( 'Введите число старух ='); readln(a);write ( 'Введите число валов ='); readln(b);write ( 'Введите число хлебов ='); readln(c);write ( 'Введите число ножей ='); readln(f);S:=a*b*c*f;write ('Число всех ножей =' ,S); end