Подсистема - это правильный ответ
АБВГДЕЁЖЗИЙКЛМНОПРСТ....
АСКАР
1 19 12 1 18
11912118
81121911
БУКВА А ПОД НОМЕРОМ 1
Program prog;
Uses crt;
var i,s,a: integer;
begin
s:=0;
for i:=1 to 10 do
begin
write('NUM',i,' = ');
readln(a);
if ((a mod 2)=0) then s:=s+a;
end;
writeln;
writeln('Sum = ', s);
End.
C1=$A1+B$1=135
C2=$A2+B$1=70
C3=$A3+B$1=145
D1=$A1+C$1=245
D2=$A2+C$1=180
D3=$A3+C$1=255