9 lines
148 B
ObjectPascal
9 lines
148 B
ObjectPascal
var a: integer;
|
|
begin
|
|
writeln('Âîçðàñü');
|
|
Readln(a);
|
|
if 25 > a then writeln('( ', a)
|
|
else if a > 40 then writeln('( ', a)
|
|
else
|
|
writeln(') ', a)
|
|
end. |