для исполнителя составить программу рисования следующих фигур 1)прямоугольник 2)квадрат

VAR
   a,b,c,mx,mn: LongInt;
BEGIN
   Read(a,b,c);
   if (a >= b)and(a >= c) then mx := a;
   if (b >= a)and(b >= c) then mx := b; 
   if (c >= a)and(c >= b) then mx := c; 
   
   if (a <= b)and(a <= c) then mn := a;
   if (b <= a)and(b <= c) then mn := b; 
   if (c <= a)and(c <= b) then mn := c;     

   Writeln('Минимальное число  = ', mn);
   Writeln('Максимальное число = ', mx); 
END.

VAR
   x,y: Real;
BEGIN
   Read(x, y);
   
   if (x <= 0)and(y >= 0) then Write('True')
   else Write('False');
END.

VAR
   n: LongInt;
BEGIN
   Read(n);
   if (n > 0) then Inc(n);
   Write(n);
END.

1)Как правило, в итоге каких либо определенных причин наступают действия (последствия). На основании причин человек может объяснять и планировать события.Приводится несколько вариантов:По причине поломки главного узла простаивает весь конвейер. По причине неблагоприятных погодных условий в аэропорту сегодня были отменены все авиарейсы.Муж с женой уже которую ночь спят отдельно по причине того, что жена на последнем месяце беременности.
2) философские категории, выражающие отношение между совокупностью предметов (или элементов отдельного объекта) и связью, объединяет эти предметы и приводит к появлению у совокупности новых (интегративных) свойств и закономерностей, не присущих предметам в их разобщенности