Программа паскаль абс. дано значение угла. угл смежный. составить алгоритм нахождения 2-го угла

Var
   a, b: integer;
begin
   readln(a);
   b := 180 - a;
   writeln('Смежный угол равен: ', b);
end.