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

Var q, w: integer; c : real;
begin
c:=0;
writeln("Введите первое число:");
readln(q);
writeln("Введите второе число:");
readln(w);
if (q>w)then c:=q+w
else c:=q-w;
writeln("Результат:", c);
end.