Информатика легкое задание #2)

var

i,s: integer;

begin

s: =0;

for i: =2 to 5 do

s: =s+i*i;

writeln(s);

end.

var i: integer; s: real;

begin s : = 0; for i : = 1 to 100 do s : = s + i * i; writeln(s: 7: 0); end.

var a: array [1..10] of integer;

min,max,i,c,b: integer;

begin

  read(c,b);

  randomize;

  for i : = 1 to 10 do

        a[i]: = random(b) -c+1;

  min: =1;

  max: =1;

  for i: = 1 to 10 do

  begin

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

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

  end;

  writeln(a[min], a[max]);

end.

это вообщето

v= v1+v2

t=(v1*t1+v2*t2)/v