Помогите сделать блок-схему по фасту

[OneP63]

var b,k,t:integer;
begin
for b:= 0 to 10 do;
for k:= 0 to 10 do;
for t:= 0 to 10 do;
  if  (20*b+10*t=200) and (b+k+t=100)
then writeln (b,k,t);
end.

Блок-схему пжл.

[BDA]

1) FCEditor Вам в помощь
2) Программа вряд ли работает так, как Вам бы хотелось (что-то ";" многовато)
3) Даже если ";" станет нужное количество, то при таких диапазонах переменных b+k+t=100 всегда ложно