Составить программу что указанный человек совершеннолетний

Program chelovek;
Const:B=18:integer;
Var A:integer;
Begin
Writeln('Введите возраст');
Readln(A);
If A=>B then writeln('совершеннолетний') else writeln('не совершеннолетний');
End.