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

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