нужно выяснить результат программы​

var

s,n,i: integer;

begin

write('введите количество чисел');

readln(n);

s: =0;

for i: =1 to n do

s: =s+i*3;

writeln(s);

end.

var a: array[1..5,1..3] of integer;

i,k,j,min,max: integer;

begin

  min=1000;

  max=-1000;

  for i: = 1 to 5 do

      for j: = 1 to 3 do begin

        a[i,j]: = random(256);

      if min> a[i,j] then min: =a[i,j];

          if max< a[i,j] then max: =a[i,j];

  end;

  writeln(min, max);

end.

поесть ржаного пирожка у печки.

поесть лесного яблочка у яблони.

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

веселье-грусть(эмоции, состояние человека)

весна-осень(месяцы года)

монитор-клавиатура(устройства компютера)

стол-диван(мебель)

береза-осина(деревья)

арбуз-гуляш(продукты питания)