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

[Alikcool]

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

program p1;
label 1;
var A,B,vr:integer;
prod:char;

begin
1:write('A= '); readln(A);
write('B= '); readln(B);

if A>B then
begin vr:=A; A:=B; B:=vr; end;
writeln('_____');
writeln('A= ',A);
writeln('B= ',B);
end.

[Desc]

Опять 25...
Посмотрите темы по приведенным ниже ссылкам:
>>Блок-схема одномерного массива
>>Построение блок схем из кода программы
>>[C++] добрый вечер, можете помочь составить блок-схему к программе, пожалуйста