Какая тут ошибка, посмотрите…?

Какая тут ошибка, посмотрите, пожалуйста program znacheniya uglov; uses crt; var x: integer; begin writeln ('wedite znachenie gradusnoi mery ugla'); read (x); if a=180 then writeln ('razvernutyi') else writeln ('ne razvernutyi'); end.