Напишите программы, которые строят изображения трёхмерных объектов с одной процедуры

наиболее простым способом перехвата информации является подслушивание.

прослушивание телефона тоже способ перехвата информации.

перехватчики информации в сети с программ снифферов.

перехватчики информации в компьютере это компьютерные вирусы.

синий,желтый,красный,зеленый,оранж.

var a,b,c,r,x,y: integer;

begin

  read(a,b,c);

  if (a=b) or (a=c) or (b=c) then

        writeln('ravnobedrennyj');

  read(a,r);

  if  (a*a> pi*r*r) then writeln('kvadrat bolshe')

  else writeln('krug bolshe');

  read(x,y);

  if x> y then writeln(y*y,' ',x*x*x,' ',(x+y)/2);

  else writeln(x*x,' ',y*y*y,' ',(x+y)/2);

end.

var a: array [1..100] of integer; i,n,s: integer; begin  randomize;   n: =12;   for i: = 1 to n do begin      a[i]: =random(n*10)- 10*n div 2 ;       write(a[i]: 4);       if i mod 10=0 then writeln;   end;

  for i: = 1 to n do begin      if i mod 2 =0 then

          s: =s+a[i];   end;   writeln(s);   end.