Трём подругам (ане, саше и дине) подарили кошек разных пород: саванна, сноу-шу, тойгер. подруги дали им клички: бима, бума, бама. известно, что кошка ани веселее тойгера, бимы и бумы, кошка саши старше бумы, сноу-шу и тойгера. напишите кличку тойгера.

У кошки Ани кличка Бама, у кошки Саши кличка Бима ,значит что у кошки Дины (тойгера) кличка Бума

Исходя из условия, у Ани сноу-шу Бама, у Саши саванна Бима, у Дины тойгер Бума.

1. Чтобы выбрать фоновый цвет необходимо взять ведро, выбрать цвет , нажать на то место где хочешь раскрасить и всё!

2. Чтобы выбрать основной цвет необходимо взять ведро, выбрать цвет, нажать на то место где хочешь раскрасить и всё!

3. Чтобы нарисовать  прямоугольник необходимо взять эту фигуру и сделать, или нарисовать при прямых линий или кисточек.

4. Тоже самое что и 3.

5. Чтобы нарисовать овал необходимо взять эту фигуру и сделать, или нарисовать при кривых линий или кисточек.

6. Тоже самое что и 5.

Всё это через PAINT.

1)
var x:integer;
begin
read (x);
if (x=12) or (x=1) or (x=2) then writeln ('Зима');
 if (x=3) or (x=4) or (x=5) then writeln ('Весна'); 
 if (x=6) or (x=7) or (x=8) then writeln ('Лето'); 
 if (x=9) or (x=10) or (x=11) then writeln ('Осень'); 
end.
2)
var K,a:integer;
begin
readln(K);
a:=K mod 10;
if (K=11) or(K=12) or (K=13) or (K=14) then writeln ('У меня ',K,' друзей') else
begin
if (a=1) then writeln ('У меня ',K,' друг');
if (a=0) or ((a>=5) and (a<=9)) then writeln ('У меня ',K,' друзей');
if (a>=2) and (a<=4) then writeln ('У меня ',K,' друга');
end;
end.