Составить алгоритм и программу к задаче: Вычислить сумму квадратов всех четных чисел, не превосходящих N, введенного с клавиатуры выслать решение задачи (блок-схему и программу

Program a10;
var a,b:Array [1..100,1..100] of integer;
k,i,n,j,s:integer;
Begin
read(n);
For i:=1 to n do
begin
For j:=1 to n do
begin
read(a[i,j]);
end;
end;
i:=0;j:=0;s:=0;k:=0;
while i<=n do
begin
i:=i+1;j:=j+1;
if(a[i,j]>0)then k:=k+1;
s:=s+a[i,j];
end;
writeln(k,' ',s);
end.
2)
Program a10;
var a,b:Array [1..100,1..100] of real;
k,i,n,m,j:integer;
s:real;
Begin
read(n,m);
For i:=1 to n do
begin
For j:=1 to m do
begin
read(a[i,j]);
end;
end;
k:=0;
for j:=1 to m do
begin
s:=0;
for i:=1 to n do
begin
s:=s+a[i,j];
end;
for i:=1 to n do
begin
if(a[i,j]>(s-a[i,j]))then k:=k+1;
end;
end;
writeln(k);
end.

Разница в объеме хранимой информации, сходство с записиСходства-одинаковые размеры (диаметр 120 мм, толщина 1.6 мм), тот же радужный вид. Принцип записи и чтения тоже аналогичный: лазерный луч отражается от металлизированной поверхности ("ямок" и "горок"), причем, отражение от любой поверхности кодирует ноль, а отражение от перехода между ямкой и горкой (при этом луч ослабляется за счет интерференции) - единицу 
На этом сходство заканчивается - дело в том, что в CD используется инфракрасный лазер (длина волны в воздухе 780 нм). В DVD же применяется красный лазер (650/635 нм). Меньшая длина волны позволяет плотнее размещать информацию на DVD-диске. 
Ёмкость DVD сильно превосходит обычный компакт-диск (640 Мб) и составляет 4.38 гигабайта (в смысле 2^30 байт) или 4.7 миллиарда байт, имеется в виду односторонний, однослойный DVD-диск