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
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