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

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