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

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" обязательно нужно писать.