8 lines
109 B
ObjectPascal
8 lines
109 B
ObjectPascal
var a: integer;
|
|
begin
|
|
writeln('×èñëî');
|
|
Readln(a);
|
|
if a mod 3 = 0 then writeln('Äà')
|
|
else
|
|
writeln('íåò')
|
|
end. |