Вкаждом углу комнаты сидела по кошке .у каждой кошки по х котят. сколько всего ног. составьте программу для решения и вывода результата на экран .

Var     x,y:byte;

begin
  writeln('В каждом углу комнаты сидела по кошке.');
  write('У каждой кошки по х котят. Введите x=');
  readln(x);
  writeln('Сколько всего ног?');
  writeln();
 
  writeln('В комнате 4 угла, следовательно 4 кошки');
  writeln('4 кошки по ',x,' котят = всего ', 4*x ,' котят');
  //4 кошки + котята
  y:=4 + 4*x;
  writeln('Всего кошек и котят = ', y);
  writeln('следовательно ног у кошек и котят = ', 4*y );
end.