It's Pascal inspired but certainly not any of Wirth's syntaxes, like 1/2 line if's, semi colons in weird places making blocks look odd. Ada has a more inclusive syntax, whereby "is" or "begin" and "end" encases what is inside it. Compare Modula's:

    MODULE X;
        ...
    END MODULE X.

and Ada's:

    package X is
       ...
    end X;

Ada's package feels like one statement containing others, whereby Modula's looks like it ends on the first line.

Pascal-like syntax seemed to have been popular around the time. Outside the Writh languages(Pascal, Modula, Oberon) and Ada, I was reading about CHILL[0] the other day, which is supposedly similar to Ada, but was rather domain specific. Sadly I don't think any modern, free implementations exist.

[0]https://en.m.wikipedia.org/wiki/CHILL