9 lines
147 B
ObjectPascal
9 lines
147 B
ObjectPascal
var a: real;
|
|
begin
|
|
writeln('t');
|
|
Readln(a);
|
|
if 36 > a then writeln('ill ', a)
|
|
else if a >= 37 then writeln('ill ', a)
|
|
else
|
|
writeln('good ', a)
|
|
end. |