составить программу для следующего условия: если число меньше 4, то к нему прибавляем

Домик
uses graphABC; beginsetwindowsize(800,600);setpencolor(clblue);setbrushcolor(clblue);rectangle(0,0,800,400);setpencolor(clgreen);setbrushcolor(clgreen);rectangle(0,400,800,600); setpencolor(clblack);setbrushcolor(clSilver);rectangle(50,300,250,500);rectangle(250,500,500,300);line(50,300,150,200);line(150,200,250,300);line(400,200,500,300);line(150,200,400,200);floodfill(150,250,clsilver);floodfill(300,250,clMaroon);setbrushcolor(claqua);rectangle(110,360,190,440);rectangle(280,360,360,440);setbrushcolor(clSilver);rectangle(280,180,320,230);setbrushcolor(clMaroon);rectangle(400,350,470,500);setbrushcolor(claqua);circle(150,270,20);setbrushcolor(clBrown);rectangle(650,400,670,500);setbrushcolor(clgreen);ellipse(570,150,750,420);end.

КРУГ

uses graphabc;
var a,b,c,i,count:integer;

begin
floodfill(1, 1, clblue); {çàêðàøèâàåì ïðÿìîóãîëüíèê}
setbrushstyle(bsClear); {ñîçäà¸ì êðóãè}
{êîðäèíàòû êðóãà}
a:=100;
b:=100;
c:=50;
count:=1;

for i:=1 to 15 do {}
begin
if(count <= 4) then
begin
circle(a,b,c);
floodfill(a, b, clwhite);
a:=a+90;
end;
if(count = 5) then
begin
circle(a,b,c);
floodfill(a, b, clwhite);
a:=100;
b:=b+90;
count:=0;
end;
count:=count+1;
end;
end.
вот еще одна прога
program grnebo;
uses graphABC,crt;
var
x,y:integer;
n,i,r,k:integer;
m:array [1..6] of integer;
begin
randomize;
m[1]:=clred;
m[2]:=clyellow;
m[3]:=clgreen;
m[4]:=clblue;
m[5]:=clolive;
m[6]:=clsilver;
for i:=1 to 50 do begin
x:=300 + random(510)-200;
y:=250 + random(400)-200;
r:=10;
delay(100);
k:= random(6)+1;
SetBrushColor(m[k]);
circle(x,y,r);
end;
end.

ЛИЦО
uses crt,graphABC; var x,y,ul,gr,nt,w,r,h:integer;     c:char;     label 1; procedure uslov; begin   if w=0 then DrawPicture(nt,x,y,r,h);   if w=1 then DrawPicture(ul,x,y,r,h);   if w=2 then DrawPicture(gr,x,y,r,h); end; begin r:=650; h:=400; w:=1; HideCursor; 1: circle(300,200,100);    arc(300,350,100,60,120);    circle(340,170,20);    circle(340,180,10);    circle(260,170,20);    circle(260,180,10);    RoundRect (290,180,310,230,10,10);    line(300,100,300,140);    line(260,110,250,140);    line(340,110,350,140);    SaveWindow('d:\g');    ClrScr;    circle(300,200,100);    line (250,250,350,250);    circle (340,170,20) ;    circle (340,180,10);    circle (260,170,20);    circle (260,180,10);    RoundRect (290,180,310,230,10,10);    line (300,100,300,140);    line (260,110,250,140);    line (340,110,350,140);    SaveWindow('d:\n');    ClrScr;    circle(300,200,100);    arc(300,220,50,210,-30);    circle (340,170,20) ;    circle (340,180,10);    circle (260,170,20);    circle (260,180,10);    RoundRect (290,180,310,230,10,10);    line (300,100,300,140);    line (260,110,250,140);    line (340,110,350,140);    SaveWindow('d:\u');    ClrScr; gr:=LoadPicture('d:\g'); nt:=LoadPicture('d:\n'); ul:=LoadPicture('d:\u'); uslov; repeat if keypressed then  begin   c:=readkey;   case c of   #110:begin       ClrScr;       w:=0;       DrawPicture(nt,x,y,r,h);  //нейтраль       end;   #117:begin       ClrScr;       w:=1;       DrawPicture(ul,x,y,r,h); //улыбка       end;   #104:begin       ClrScr;       w:=2;       DrawPicture(gr,x,y,r,h);   //грусть       end;   #72:begin // клавиша вверх       ClrScr;       y:=y-5;       uslov;       end;   #75:begin //клавиша вправо       ClrScr;       x:=x+5;       uslov;       end;   #80:begin //клавиша вниз       ClrScr;       y:=y+5;       uslov;       end;   #77:begin //клавиша влево       ClrScr;       x:=x-5;       uslov;       end;   #44:begin //клавиша "<" меньше      ClrScr;      r:=r-7;      h:=h-5;      uslov;      end;   #46:begin //клавиша ">" больше       ClrScr;       r:=r+7;       h:=h+5;       uslov;       end;   #114:begin //клавиша "r" красный       ClrScr;       SetPenColor(clred);       goto 1       end;   #103:begin //клавиша "g" зеленый       ClrScr;       SetPenColor(clgreen);       goto 1       end;   #98:begin //клавиша "b" синий       ClrScr;       SetPenColor(clblue);       goto 1       end;   #121:begin //клавиша "y" желтый       ClrScr;       SetPenColor(clyellow);       goto 1       end;   #97:begin //клавиша "a" черный       ClrScr;       SetPenColor(clblack);       goto 1       end;   #113:begin //клавиша "q" увеличение контура втрое       ClrScr;       SetPenWidth(3);       goto 1       end;   #119:begin //клавиша "w" уменьшение контура Перемещение - стрелки лево, право, вверх, вниз');       writeln('  Увеличить рисунок - ">"');       writeln('  Уменьшить рисунок - "<"');       writeln('  Контур толще  - "q"');       writeln('  Контур тоньше - "w"');       writeln('  Улыбка  - "u"');       writeln('  Грусть  - "h"');       writeln('  Нейтрал.- "n"');       writeln('  Красный - "r"');       writeln('  Зеленый - "g"');       writeln('  Синий   - "b"');       writeln('  Желтый  - "y"');       writeln('  Черный  - "a" "F1"');       writeln;       writeln;       writeln('       Выход из окна любое действие над картинкой');       end;   end;  end; until c=#27; end.

Для каждого объекта можно построить только одну модель.Не верно, смотря какие параметры мы будем рассматривать. Здесь опровергнуть элементарно. Для каждого объекта можно построить много моделей.
Спорно... Скажем, для некого абстрактного "черного ящика" (это термин) не получится построить ни одной модели. (Информационная модель – совокупность информации, характеризующая существенные свойства и состояния объекта, процесса, явления, а также взаимосвязь с внешним миром.) Магия.
 Разные модели отражают разные свойства объекта.Не правда. Положение объекта в разных системах отсчета или координат.
 Модель должна описывать все свойства объекта.Не правда. Например, важно положение, но не важен цвет.
 Модель может описывать только некоторые свойства объекта.Может.