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.