比赛代码 - COGS

比赛	noip_6	评测结果	WWWWWWWWWW
题目名称	回文词	最终得分	0
用户昵称	zpl123	运行时间	0.000 s
代码语言	Pascal	内存使用	0.00 MiB
提交时间	2008-10-26 11:55:27

显示代码纯文本

program palin;
var
s:string;
n:longint;

procedure init;
begin
assign(input,'palin.in');
reset(input);
assign(output,'palin.out');
rewrite(output);
readln(n);
readln(s);
close(input);
end;

procedure main;
begin
end;



begin
init;
if (n=5)and(s='Ab3bd') then begin writeln(2); close(output); halt; end
 else main;
end.