Предложите, как можно записать табличные данные в виде списка.

program nm12;

var a, d : integer;

begin

    writeln (' vvedite diametr kruga i storony kvadrata ');

    readln (d);

    readln (a);

    if d< =a then writeln (' krug pomestits9 v kvadrate ')

              else writeln (' krug ne pomestits9 v kvadrate ');

    readln;

end.

var

a: array[1..100] of integer;

i,s,r: integer;  

begin

for i: =1 to 100 do read(a[i]);

for i: =1 to 100 do

begin

if a[i]< 0 then r: =r+a[i] else s: =s+a[i];

end;

writeln('сумма всех положительных чисел= ',s);

writeln('сумма всех отрицательных чисел= ',r);

readln

end.

посчитает максимум 100 чисел. 

a1=8;

a2=a1*10=80;

a3=a2-a1=72;

b1=a2/4=20;

b2=(b1-a1)/6=2;

ответ: a1=8; a2=80; a3=72; b1=20; b2=2

var i,n,q: integer;

begin

  read(q);

  repeat

      i: =i+1;

      n: =n+i;

  until n> =q;

  writeln(i);

end.

var i,n,q: integer;

s,a: real;

begin

  a: =10;

  repeat

      i: =i+1;

      s: =s+a;

      a: =a*0.1;

  until s> =100;

  writeln(i);

end.