Здесь нужен цикл с параметром
Чертить ромбик не буду, это и так понятно.
Условие: "Фасоль белая"
ответ ДА, команда "<span>положить фасолину в белую коробку"
ответ НЕТ, команда "</span><span>положить фасолину в серую коробку"</span>
Фрактальная графика, также как векторная и трёхмерная,
является вычисляемой. Её главное отличие в том, что изображение строится по
уравнению или системе уравнений. Поэтому в памяти компьютера для выполнения
всех вычислений, ничего кроме формулы хранить не требуется. <span>Только изменив
коэффициенты уравнения, можно получить совершенно другое изображение. Эта идея
нашла использование в компьютерной графике благодаря компактности
математического аппарата, необходимого для ее реализации. Так, с помощью
нескольких математических коэффициентов можно задать линии и поверхности очень
сложной формы.</span>
Var
a, b: real;
begin
readln(a, b);
if a <> 5.5 then a := a * 2;
if b <> 5.5 then b := b * 2;
writeln(a, ' ', b );
end.
Пусть массы корзин k1 k2, ягод - y1 y2
Тогда
k1+y1=a1
k2+y2=b1
k1+y1+y2=a2
k2=b2
k1=a3
k2+y1+y2=b3
Как видишь, математики - полные лохи, количество данных даже избыточно. Возьмем только
y1=a1-a3
y2=b1-b2
Теперь осталось сравнить 2 полученных числа.
begin
write('Здравствуйте, как вас зовут, в какой школе вы учитесь?');
end.