Записать программу на Языке Паскаль

var a: integer;begin    writeln ('Введите кол-во балов');    readln (a);    if (a >= 85) and (a <= 100) then    writeln ('подходит')    else    writeln ('не подходит');end.