Як намалювати на формі точку червоного кольору з координатами (20,100)?

60,111100,3c,74

const alphabet="яабвгдеёжзийклмнопрстуфхцчшщъыьэюя"; var filename: stringprocedure readfile(filename: string); var f: text; s: string; i,k: integer; begin      assign(f,filename);       reset(f);       while not eof (f) do begin { пока не конец файла }            readln (f, s);             for i: = 1 to length(s) do begin              k: =pos(s[i], alphabet);                   if k=1 then k=length(alphabet); {это приколы изза я}                   if k> 1 then s[i]: =alphabet[k-1];         end;             writeln(s);       end;       close(f); end; begin      read(filename);       readfile;       readln; end.

для этого модема нужно: источник питания: через внешний адаптер питания переменного тока 9 в /1a параметры блока питания robiton dn1000: блок питания 1000ма, нестабилизированный выходное напряжение: 3,0 / 4,5 / 6,0 / 7,5 / 9,0 / 12,0 в 12,0 вполне подойдет. даже не нужно заморачиваться правильным подключением +/- т.к. модем питается переменкой. я бы порекомендовал сначала включить бп на 7,5 вольт. если модем будет так работать, то так и оставить. если не работает, переключить на 9 вольт. только ни в коем случае не переключайте выходное напряжение бп, если он подключен к модему! в момент переключения, напряжение на выходе бп может сильно прыгнуть!

var a,b,c: real;

begin

  read(a,b,c);

  if (a> b) and (b> c) then begin

      a: =a*2;

      b: =b*2;

      c: =c*2;

  end

  else begin

      a: =-a;

      b: =-b;

      c: =-c;

  end;

  writeln(a,b,c);

end.