Написать програму в пасхале abc чтобы програма запрашивала пароль и ес ли он подходит шлагбаум открывался если нет шлагбаун не открывался

Program slackbaum;
var a,b:integer;
begin
readln(a);//nas parol
readln(b);//proverka
if a=b then
writeln('yes')
else writeln('no')
end.