帮忙解决一下pascal的一道题

请用pascal编辑一个程序，输入分数，大于等于80分，输出优秀，大于等于60分输出及格，小于60分输出不及格。

proram mark;

var

a：integer;

begin

readln(a);{读入成绩}

if a>=80 then writeln('vary good')

else if a<60 then writeln('fail')

else writeln('pass');{用if的嵌套判断分数大小}

readln;

end.

本人英语不是太好，‘优秀’，‘及格’，以及‘不及格’自己改吧...

program xxxxxx;

var

a:integer;

begin

readln(a);

if a>=80 then writeln ('优秀')；

if 60<=a<80 then writeln('及格')；

if a<60 then writeln ('不及格')；

readln;

end.