Запишем как систему уравнений
x - кошка
y - котёнок
4x+3y=15
3x+4y=13
Домножим
4x+3y=15
-3x-4y=-13
Сложим
x-y=2
x=2+y
Подставим
4(2+y)+3y=15
8+4y+3y=15
7y=7
y=1
Подставим
4x+3(1)=15
4x=12
x=3
y=1
Ответ:Кошка весит 3 кг, а котёнок весит 1 кг
Начало
Открываешь холодильник.
Берешь два куриных яйца.
Идешь к столу.
Наливаешь масло в сковороду.
Ждешь пока оно разогреется.
Выливаешь яйца на сковороду.
Солишь.
Ждешь приготовления.
Выкладываешь на тарелку.
Ешь.
Конец
P.S: думаю так
var a,b,c,e,k:integer;
begin
k:=9;//вставить любоое число
a:=-1;
while a<>0 do
begin
read(a);
if a>0 then b:=b+a;
if a<0 then c:=c+1;
if (a mod k = 0)and(a<>0) then
if e=0 then e:=a else e:=e*a;
end;
writeln('сумма положительных элементов = ',b);
writeln('кол-во отрицательных элементов = ',c);
writeln('произведение элементов, кратных ',k,' равнo ',e);
end.
если нужно , чтобы пользователь вводил К , то за место оператора к:=9; вставить read(k);
Тип текста; размер текста; жирный, курсивный, подчёркнутый текст; расположение текста.
Вроде бы легко!