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

{$A+,B-,D+,E+,F-,G-,I+,L+,N+,O-,P+,Q-,R-,S+,T-,V+,X+<Y+}
{$M 16384,0,655360}
program Confuse;
var Max,Min,x:Extended;
k,n,i:Integer;
begin
assign(Input,'Confuse.dat');
Reset(Input);
Readln(n,k);
Max:=-2E9;
Min:=2E9;
for i:=1 to n do
begin
read(x);
if x>Max then Max:=x;
if x<Min then Min:=x;
end;
Assign(Output,'Confuse.sol');
Rewrite(Output);
Writeln(Max-Min:0:0);
Close(Input);
Close(Output);
end.

Ловите! Вот:

11Angelav ты через какую прогу рисуешь блок схемы ?

Через ворд, мне говорят через Paint, но мне и так удобно, привыкла.

есть прога, называется diamFC, через неё можно бесплатно получать блок схемы программ до 30 знаков , если программа содержит больше знаков ; , то нужно её купить.

*30 знаков ;