Составь блок схему и напиши программу вычисления суммы q и w, если q>w; в противном случае - их разности. Значения

Текст программы на Паскале: varq: integer;w: integer;beginwriteln ( \' Введите число q: \' );readln( q );writeln ( \' Введите число w: \' );readln( w );if q > w then begin //сравниваем числа q и wwriteln( \' Сумма чисел q и w равна: \' ); writeln( q + w );endelse begin writeln( \' Разность чисел q и w равна: \');writeln( w - q );end;end.Ссылка на хостинг с блок- схемой:http://i.piccy.info/i9/bb7f9c9794aa3073ce27b6a87f350d6e/1483519802/3864/1105552/blok_skhema.png