A := 10; b := 20; c := 30; x := b; if a>b then x := a; if c>x then x := c; writeln (x)

1 simvol zanimaet 1 bait(tak kak imeem tekst);

tekst shpargalki sostavliaet 50*50=2500 simvolov-2500 bait.

da + eshe 0,3*2500=750.

vsego 2500+750=3250 bait.

если хранить без знака, то диапазон от 0 до 15(2^3+2^2+2^1+2^0) 

2000*2000=625 кб возможно но я неуверена

var

s,n,i: integer;

begin

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

readln(n);

s: =0;

for i: =1 to n do

s: =s+i*3;

writeln(s);

end.