составим программу для вычисления суммы всех целых чисел от А до В , где А и В входят в эту сумму.A и B - это целые числа, и ( A < B ) .var i , a , b : integer ; k : Int64 ;begin readln ( a , b ) ; for i : = a to b do k + = sqr ( i ) ; writeln ( k ) ; end.