Дано А = A716, B = 2518. Найдите сумму A + B.

var a:real;
begin
readln(a);
writeln('В килобайтах' a/1024);
writeln('В мегабайтах' a/(1024*1024));
end. это правельно?если нет,тогда распишите так как у меня написано,чтоб можно было вести и не морочить себе голову.

SUM:=0; K:=M-1;

while K<M do

begin

for I:=K-M+2 to K Do SUM:=SUM+I;

K:=K+M;

end;

for I:=K-M+2 to N-1 do SUM:=SUM+I;

числа; • Найдите наибольшую цифру числа; • Найдите сумму цифр числа, больших 5.

лементов. Результат распечатать в виде:

Сумма наибольших=

Сумма наименьших=

№2

Даны два массива по 30 элементов. Найти среднее арифмитическое для элементов 1-го массива,номера которых больше номера минимального элемента 2-го массива

Заранее спасибо

полученную сумму.
2. Дан массив В(n). Определите произведение элементов, кратных 3. Выведите на экран исходный массив и найденное произведение.