Составьте блок-схему на тему дан радиус круга r=2. найдите диаметр круга. надо

Как то так. Как еще усложнить я не знаю))

Const 
n=5;

Var
 ar:array[1..n] of integer;
 ar2:array[1..n] of integer;
 i,k:integer;

 function prost(a:integer):boolean;
 var i:integer;
 b:boolean;
  begin
  b:=true;
   for i:=2 to a div 2 do
    if a mod i=0 then
     begin;
      b:=false;
      break;
     end;
   if a=1 then b:=false;
  prost:=b;
 end;

  begin;
 randomize;
 k:=0;
  for i:=1 to n do
   begin;
    ar[i]:=random(101);
    write(ar[i]:4);
   end;
  writeln;
  for i:=1 to n do
  if prost(ar[i]) then
   begin;
    inc(k);
    ar2[k]:=ar[i];
    write(ar2[k]:4);
   end;
end.

Если электричество пробежало по электрону дальше - значит в ячейке ноль, если не пробежало - значит, единица. Значение ячейки (бита) зависит от того, есть ли там электрон или нет. При записи информации на флешку, миллионы контроллеров заряжают и разряжают миллионы электронов.
Все описанные процессы происходят на чипе памяти. Однако у типичной флешки имеется также разъем USB типа - "папа". Еще имеется контроллер, обеспечивающий взаимопонимание между накопителем и компьютером. Для этого у него есть небольшой процессор и крохотное количество оперативной памяти. Оперативная память представляет собой "буфер" для перекачки информации.Ячейка флэш-памяти не содержит конденсаторов как большинство других типов полупроводниковой памяти. Это всего лишь один транзистор особой архитектуры хранить информацию.

Ячейки флеш-памяти отлично масштабируются. Если их сделать невероятно миниатюрными, тогда на небольшой по размерам носитель можно будет записывать большое количество данных. А при нынешнем уровне компьютеризации и развитии технологий, транзисторы можно делать чрезвычайно маленькими.Как вы вероятно знаете, вся цифровая информация хранится в мегабайтах. Один мегабайт - это 1 024 килобайт. В одном килобайте 1024 байта. Один байт - это 8 бит.
Наши компьютеры понимают только двоичную систему - либо ноль, либо единица. Ноль и единица именуются как "бит".Бит занимает одну ячейку флеш-памяти. Главным в этом механизме является электрон. Когда usb flash включается в компьютер, по ней пробегает электричество, забегая во все ячейки. Каждая ячейка состоит из источника и канала. Если контроллер с электричества зарядит электрон, тогда ток попадет из источника в канал и, как по мостику, ток побежит по электрону дальше.