Составить программу, которая будет определять развернутый или нет введенный пользователем угол. программа турбо паскаль

program StrAngle; var a: integer; begin readln(a); if a = 180 then writeln('YES') else writeln('NO'); end;

program E7; var x: integer; begin writeln('vvedite znachenie gradusnoi meri ugla'); readln(x); if a=180 then writeln('razvernutii') else writeln('ne razvernutii'); readln; end.   Если вы работаете в школе на программе FreePascal, то перед "end" можно "readln" не писать. Если же вы работаете на программе TurboPascal, "readln" перед "end" обязательно нужно писать.