以下是我的程式:

var a,b,c,d:integer;
begin
while not eof do begin
readln(a);
b:=0;
c:=25-a;
d:=60-a+25;
begin
if a=25 then writeln(b);
if (a>0) and (a<25) then writeln(c);
if (a>25) and (a<60) then writeln(d);
if a=60 then writeln(d);
end;
readln;
end;
end.

被說是輸出短少,為什麼QAQ 

沒考慮到 0