с информатикой задания 1-5​

var i, n, a: integer; c1, c2, c3, c4: integer;

begin readln(n); for i : = 1 to n do begin readln(a); c1 : = a div 1000; c2 : = (a div 100) mod 10; c3 : = (a div 10) mod 10; c4 : = a mod 10; if (c1 < > c2) and (c1 < > c3) and (c1 < > c4) and (c2 < > c3) and (c2 < > c4) and (c3 < > c4) then writeln('цифры попарно различны') else writeln('не все цифры попарно различны'); end; end.

1)

uses graphabc; begin window.title : = 'circle'; var x,y,r,i: integer; brush.color : = clgreen; y: =20; x: =70; r: =25; for i : = 1 to 7 do circle(x,y+i*60,r); end.

2)

uses graphabc; begin window.title : = 'circle'; var x,y,r,i: integer; brush.color : = clgreen; y: =20; x: =20; r: =30; for i : = 1 to 5 do circle(x+i*70,y+i*70,r); end.

3)

uses graphabc; begin window.title : = 'circle'; var x,y,r,i: integer; brush.color : = clgreen; y: =70; x: =30; r: =60; for i : = 1 to 5 do circle(x+i*60,y,r); end.

2048 бит : 8: 1024= 0.25 кбайт

const  n = 20;   var  a : array [1..n] of integer;   pos, sum, znak : integer;   begin  write('массив: ');   randomize;   for pos : = 1 to n do  begin  a[pos] : = random(101) - 50;   write(a[pos]: 4);   end;   writeln;   for pos : = 1 to n div 2 do sum : = sum + a[pos] -a[n div 2 + pos];   writeln('разность между суммой 1-й половины и 2-й = ', sum);   end.