Киплинг.bmp - это и есть ответ на твой вопрос, если файл был сохранен с расширением .bmp, т.к. он мог быть сохранен в .gif, .jpeg и т.д. и т.п.
Var
i: integer;
d, s: real;
begin
d := 10;
s := d;
for i := 2 to 7 do
begin
d := d * 1.1;
s := s + d;
end;
writeln(s);
end.
Блок-схему не умею. Но эта программа хоть работает и правильно
Var
N:integer;
S:real;
Begin
Write('N = ');
ReadLn(N);
S:=N;
For N:= 1 to N-1 do
S:=S+N;
WriteLn('S = ',S);
End.
Блок-схема по ГОСТ 19.701-90 (ISO 5807-85) дана во вложении