Составить блок-схему алгоритма и программу вычисления абсолютной величины числа

Блок-схема - в прилагаемом файле.
Программа на паскале:
var a,ma:integer;
begin
write('a = ');
readln(a);
if a<0 then ma:=-a else ma:=a;
writeln('ma = ',ma);
end.

Пример:
a = -15
ma = 15