Здесь нужен цикл с параметром
Чертить ромбик не буду, это и так понятно.
Условие: "Фасоль белая"
ответ ДА, команда "<span>положить фасолину в белую коробку"
ответ НЕТ, команда "</span><span>положить фасолину в серую коробку"</span>
Var
x:integer;
y:real;
begin
readln(x);
if x < 0 then
begin
y:= 1/x*x;
end
else
y:=x/6;
writeln(y);
end.
Решение на фото.
Стараюсь быть лучшим для вас!