Есепті шешу процесінде өзгермейтін шама?​

сочинение о мини ноутбуках,                                                   : однажди родители подарили мне нетбук я так радовался(лас,) я кажды день сидел за ним и он мне ноавился. но однажды я пролил на него воду я думал всё   больше не будет у меня нетбука ,я растроился. мама сказала какой ты не уклюжий и так далее 

1)

var

i,n: integer;

begin

readln(n);

for i: =1 to n do writeln(i*i);

end.

2)

var

i,n: integer;

begin

readln(n);

for i: =1 to 10 do writeln(i: 2,'*',n,'=',i*n: 3);

end.

3)

var i,n: integer; p: real;

begin readln(n); p : = 1; for i : = 1 to n do p : = p * i; writeln(p: 15: 0); end.

4)

var

i,n: integer;

begin

readln(n);

for i: =1 to n do if (i mod 2=0) then writeln(i);

end.

5)

var

i,n,k: integer;

begin

readln(n);

k: =0;

for i: =1 to n do if (i mod 15=0) then k: =k+1;

writeln(k);

end.

стандартные соотношения 16х9, 4х3, 5х4

16*9*х^2 = 1310720

х = 95,405567039991 чтото не целое, значит чето не то

4*3*х^2 = 1310720

х=330,494578876366 анадогично

5*4*х^2 = 1310720

х=256 о! тогда стороны 5*256 = 1280  4*256 = 1024 вот собственно и оно. у меня такой мониторчик был

значение формулы срзнач=(d1: d4) равно 5

  можно подставить любые числа и проверить, в любом случае будет 5. а еще в диапазоне d2: d4 3 ячейки, сумма 15, добавилась еще одна ячейка d1,  в ней значение 5. 15+5=20, а среднее 20: 4=5