Давайте решу как ведущий экономист.
Excel, действительно, не обязателен.
350 * [ (1 - (1+0,11/4)^-28) / (0,11/4) ] =6 772,789 тыс. руб.
program massiv;
var i,j,kol:longint;
a:array[1..6,1..8]of longint;
begin
for i:=1 to 6 do
for j:=1 to 8 do
read(a[i,j]);
for i:=1 to 6 do
for j:=1 to 8 do
if a[i,j]=0 then kol:=kol+1;
writeln(kol);
end.
program zadacha;
var a,b:integer;
begin
writeln('введите число сотен');
readln(a);
b:=a*100;
writeln('введите число десятков');
readln(a);
b:=b+a*10;
writeln('введите число едениц');
readln(a);
b:=b+a;
writeln('полученное число = ',b);
readln;
end.
А что сделать то? Вы вопрос правильно сформулируйте!